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SECTION 1 
INTRODUCTION 


1.1 GENERAL 


The SPC-12 Program Description Manual is to be used in 
conjunction with the SPC-12 Reference and the SPC-12 
Programming Manual. The SPC-12 Program Description 
Manual consists of four sections. 

Section one very briefly describes the contents of the 
manual. Section two contains the various coding tech¬ 
niques in the form of example problems and solutions. 
Section three describes the group of subroutines which 
make up the SPC-12 arithmetic library. Also included in 
this section are: the use of the library, memory 
requirements and program applications. Section four 
contains the teletype listings of the subroutines in the 


arithmetic package. The appendices include listings for 
the following: 

a. PGS bootstrap loader 

b. Serial teletype I/O 

c. PGS paper tape loader/puncher 

d. PGS basic utility system II (BUS II) 

c. GAI recommended shared command bytes 

f. PGS CAS II source tape preparation routine 
(TAPREP) 


1 - 1 / 1-2 
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SECTION 2 
CODING TECHNIQUES 


2.1 GENERAL 

This Section is a collection of coding techniques that 
have been used, at one time or another, in the generation 
of programs on the SPC-12. 

Most examples aid in the understanding of instruction 
execution and should aid in acquainting an individual in 
coding programs on the SPC-12. 

This Section may also be used as a scrapbook by the user 
to accumulate techniques that are worth saving and 
referencing at a later date. 

2.2 CONVENTIONAL TECHNIQUES 

The following paragraphs contain example problems and 
solutions using conventional coding techniques. The 
following example problems are included: 

a. Zero B register. 

b. Eight-bit complement A register. 

c. Complementing a 12-bit or eight-bit value (2’s 
complement). 

d. Testing for a 12-bit zero. 

e. 16-bit comparison. 

f. Skipping in the forward or backward direction 
relative to the P counter. 

g. Loading the B register and any other register 
with the same value. 

h. Subroutine linkage convention. 


j. Moving 100g bytes from area 1 to area 2 * 

k. Comparing a character to a number of char¬ 
acters arising in line code. 


2.2.1 ZERO B REGISTER 


Solution: 


Shift upper 4 bits to B 


Shift zero to B 


2.2.2 EIGHT-BIT COMPLEMENT A REGISTER 


Solution: 


8 bit complement 


RDC B,B 


AXR A.B 


2.2.3 TWO’S COMPLEMENT OF 12-BIT OR EIGHT-BIT 
VALUE 


Solution: 


Technique 


RTR A,B 


AZE A 


Value in A Register 


Put A in B 


Zero A 


i. Flags. 


ASU A,B 


A - B to A 
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2.2.4 TEST FOR 12-BIT ZERO 
Solution: 

Following technique used for Y or Z Registers 

RDC Y,Y Y -1 to Y Load Zero F/F 

SKZ 2 Is (Y) = 0? 

JMP - No 

RTR YY.YY YES (YY) = 0 Load Zero F/F 
SKN 2 

JMP Zero Exit Yes Exit 
ETC. 

Alternate technique for A or X Registers 


RIC 

A,A 


SKZ 

2 

Is (A) = 0? 

JMP 

— 

No 

RTR 

A,B 

Yes 

TBB 


Shift B(8-U) to B(0-3) 

SKN 

2 

Is B = 0? 

JMP 

Zero Exit Yes 

ETC. 

2.2.5 16-BIT CONVERSION 

Solution 

: 


* A,Y 


16 bit Minuend 

* X,Z 


16 bit Subtrahend 

RTR 

Z,B 

Low Order 8 bits to B 

ASU 

Y,B 

Subtract low order 8 bits 

RLK 

A,A 

Carry to high order 

RTR 

X,B 

Hi order to B 

ASU 

A,B 

Subtract high order 

RDC 

A,A 

Adjust to l’s complement arith¬ 

SKP 

2 

metic for high order only. 

JMP 

Minus 


SKZ 

2 


JMP 

Plus 


JMP 

Zero 



2.2.6 FORWARD OR BACKWARD SKIP 

To skip in the forward or backward direction relative to 
the P counter, proceed as shown below: 

Solution: 

To skip in the forward direction, the instruction 
AAD P,n-1 

applies where n is the number of cells required to skip to 
the destination address, relative to the location of the 
skip constant. 

To skip in the backward direction, the instruction 
ASU P,n+1 

2.2.7 LOAD B REGISTER AND OTHER REGISTERS 
WITH SAME VALUE 

To load the B register and any other register with the 
same value. 

Solution: 

The following instruction will load the A register with 
the constant 123. 

ALD A,123 

The value is also put into the B register. 

2.2.8 SUBROUTINE LINKAGE CONVENTION 
Subroutine linkage convention. 

Solution: 

ft RIC P,B* ft+1 to B register 
ft+1 JMP SU Go to subroutine 

ft +2 

ft+3 Return here 
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SU STB TE Save return link 
TBB 

STB TE+1 


or when testing, the flag is easily loaded with 


LDB FLAG 


2.2.10 MOVE 100 8 BYTES FROM AREA ONE TO 
AREA TWO 


Solution 1: 


ELB TE Restore return link 

Ml AZE X 

Initialize Index 

RIC B,P* Return to calling program at £2+3 

M2 LDB A1,X 

Get from A1 


STB A2,X 

Put into A2 

(B) = £2+1 

RTR X,A 


RIC B,P = £2+2 to P register 

ASU A,077 


CPU executes P+1 to P at the end 

SKZ 4 

All Done? 

of instruction execution cycle. 

RIC X,X 

JMP M2 

No - Increment Index 

♦Any register not used in subroutine can be substituted for B. 

JMP EX 

Exit 

A1 ZR 100 

Area l 

2.2.9 FLAGS 

A2 ZR 100 

Area 2 

Solution: 

Solution 2: 


To turn a flag on (off), the following instruction is 

Ml ALD X,077 

Initialize Index 

useful: 

M2 LDB A1,X 

Get from A1 


STB A2,X 

Put into A2 

RDC B,B 

RDC X,X 

Decrement Index 


SKM 2 

Is Index Negative? 

This sets B to all ones (negative). 

JMP M2 

No 

A test for negative would indicate an on (off) 

JMP EX 

Exit 

condition. 

A1 ZR 100 

Area 1 

To turn a flag off (on) the following instruction is 

A2 ZR 100 

Area 2 

useful: 

Solution 3: 


TBB 

Ml ELB MA 

Initialize Pointer Index 

TBB 

RTR B,X 

AZE Y 


A test for zero would indicate an off (on) condition. 

M2 GOL A,X,I 

Get from A1 

Since the flag is in the B register, it can easily be stored 

G2S A,X,I 

Put into A2 

with 

RTR Y,A 

ASU A,077 


STB FLAG 

SKZ 4 

All Done? 
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RIC 

Y,Y 

No - Increment Index 


JMP 

M2 



JMP 

EX 

Exit 

MA 

ZA 

MB 

Pointer Address 

MB 

ZA 

A1,Y 

Pointer to Area 1 


ZA 

A2,Y 

Pointer to Area 2 

A1 

ZR 

100 

Area 1 

A2 

ZR 

100 

Area 2 


2.2.11 COMPARING CHARACTERS 

To compare a character to a number of characters arising 
in line code, proceed as follows: 

Solution: 

Compare the character G against the character C, E, A, 

G,J. 


SKN 

2 


JMP 

E 

Equal to E 

ASU 

A,2 

Subtract E-G 

SKN 

2 


JMP 

G 

Equal to G 

ASU 

A,3 

Subtract G-J 

SKN 

2 


JMP 

J 

Equal to J 


2.3 ADVANCED TECHNIQUES 

The following paragraphs contain example problems and 
solutions using advanced coding techniques. The follow¬ 
ing example problems are included: 

2.3.1 CHANGE STATUS OF MEMORY WORD BITS 


Arrange the characters in ascending order with respect to Change the status of certain bits within a word of 

their numerical value and compute the differential. memory by using the following: 



Given: 

Ones in a mask word indicate which bits are to be 
changed. 

Solution: 

Mask out the bits to be changed, complement them and 
restore to the word. The operation is defined in terms of 
the following logic equation. 


The comparison can now be made without reloading the 
G character each time: 


ALD 

A,307 

Load G into A register 

ASU 

A,301 

Subtract A value 

SKN 

2 


JMP 

A 

Equal to A 

ASU 

A,2 

Subtract A-C 

SKN 

2 


JMP 

C 

Equal to C 

ASU 

A,2 

Subtract C-E 


1. S = (S * A) © ((S * A)' A) 

2. S = S • A S • A (Reduced form of 1.) 

Where: S = word in memory to be changed 

A = mask indicating bits to be operated 
upon 

LDB S 
RTR B,A 


r\ 
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LDB 

AND 

AXR 

LDB 

AND 

LDB 

RTR 

AXR 

LDB 

AND 

RTR 

AOR 

RTR 

STB 


LDB 

RTR 

RTR 

AXR 

LDB 

RTR 

AND 

AXR 

RTR 

AND 

RTR 

AOR 

RTR 

STB 


A 

A,B 
A,377 
A 

A, B 
A 

B, Y 
Y,377 
S 

Y,B 

Y,B 

A,B 

A,B 

S 


S • A 


(S • A) • A 


Equation 1. 
Codling 


S-A 


(S-A)@(S-A)-A 


s 

B,A 

A,X 

A, 377 
A 

B, Y 
A,B 
Y,377 

X, B 

Y, B 
Y,B 
A,B 
A,B 
S 


S • A 
A 

A*S 


Equation 2. 
Coding 


2.3.2 SHIFT RIGHT n BITS 


Solution: 


Information in A, X and Y are shifted right n bits. The 
link is used to transfer bit 0 data of one register to bit 7 
of the next. 
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RIGHT SHIFT 


ALD Z,n Load Z with shift count 
LB PLR Reset Link 

SHL A Shift A register right with bit 0 into 
link 

SHL X Shift link into X and bit 0 into link 

SHL Y Shift link into Y 

RDC Z,Z Decrement count 

SKZ 2 If Zero, exit 

JMP LB Loop 


2.3.3 SHIFT LEFT n BITS 


Solution: 



0 7 0 

LEFT SHIFT 


Information in A, X, and Y registers is shifted left n bits. 
The link bit is used to hold the carry out of bit position 
7. 

ALD Z,n Load Z register with shift count, £2 
LB RTR A,B 

AAD A,B Shift A 1 place 
RTR X,B 
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AAD X,B Shift XI place 
RLK A,A Add Link to A 
RTR Y,B 

AAD Y,B Shift Y1 place 
RLK X,X Add Link to X 
RDC Z,Z Decrement Count 
SKZ 2 If Zero, exit 
JMP LB Loop 


Note 

This is an open shift. The bit shifted from 
bit seven of the A register is lost and a zero 
is shifted into bit zero of the Y register. 

2.3.4 UPDATE SYSTEM TIMER 

Update system-timer consisting of time in units of 
milliseconds, seconds, minutes, and hours. 

Given: 

1. An interrupt; triggered every At milliseconds. 

2. Four unit-of-time counters 

a. Milliseconds (max value = 250) 

b. Seconds (max value = 60.00) 


c. Minutes (max value = 60) 

d. Hours (max value = 24) 

Solution: 

When an interrupt occurs: 

1. Increment the millisecond unit-of-time counter 
by AT and save. 

2. Determine if the time increment has exceeded 
the range of the counter, that is, if an overflow 
has occurred. This is done by adding an 
overflow constant. (In the case of the milli¬ 
second counter, since 250 ^q = 372g, the 
overflow constant is 377g - 372g or 5g.) 

a. Increment the result of step 1 by the 
overflow constant. 

b. Replace the counter value with the residue 
obtained from step 2a if overflow occurs. 

3. If any counter overflows, the residue of the 
overflow is saved in that counter and the next 
unit-of-time counter is incremented. Then this 
unit-of-time counter is tested for overflow in 
the same manner. 


2-6 
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BE 

LDB 

PT 

LOCATION OF COUNTER TABLE 


RTR 

B,Y 



ALD 

X/4 

QTY OF M UNIT-OF-TIME" COUNTERS 

LP 

G0L 

A/Y 


LDB 

DT,X 

INCREMENT OF UNIT-TIME 


AAD 

A,B 



G0S 

A/Y 

UPDATED "UNIT-OF-TIME" COUNTER 


G4A 

A/Y 

OVERFLOW CONSTANT 


SKZ 

2 



JMP 

@ 

COUNTER DID NOT REACH MAX VAL - OUT 


G0S 

A/Y 

OVERFLOW - SAVE RESIDUE 


RDC 

X,X 



SKN 

2 



JMP 

@ 

ALL COUNTERS UPDATED - OUT 


RIC 

Y/Y 

LOCATION OF NEXT COUNTER 


JMP 

LP 

TRANSFER BACK INTO LOOP 


ZC 

0 

MILLISECOND 

TIME COUNTER- MAX OF 250 

ZC 

0 

SECONDS 

TIME COUNTER- MAX OF 60.1 

ZC 

0 

MINUTES 

TIME COUNTER- MAX OF 60 

ZC 

0 

HOURS 

TIME COUNTER- MAX OF 24 

ZC 

6 

MILLISECOND 

OVERFLOW CONSTANT 

ZC 

20 

SECONDS 

OVERFLOW CONSTANT 

ZC 

304 

MINUTES 

OVERFLOW CONSTANT 

ZC 

350 

HOURS 

OVERFLOW CONSTANT 

ZC 

0 

FILLER 


ZC 

0 

HOURS 

INCREMENT OF UNIT-TIME 

ZC 

0 

MINUTES 

INCREMENT OF UNIT-TIME 

ZC 

0 

SECONDS 

INCREMENT OF UNIT-TIME 

ZC 

0 

MILLISECOND 

INCREMENT OF UNIT-TIME 


2- 
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2.3.5 MODE LINKAGE VIA MAIN MEMORY 
Solution: 

Normal subroutine linkage may be effected from mode 
#N (N t 6 0) to main memory. 

MODE #N EXIT RIC P,B 

JMP Q M Link in Main Memory 

RETURN IN MODE #N - 


MAIN MEMORY LINKAGE 


QM 

STB LM 

Save Return 


TBB 

In Link 


STB LM+1 

Table 


LDB FN 

Pick up Current Run¬ 
ning Function 

Number 


RTR B,X 
LDB M,X 

Pick up FN’s Normal 


STB LM+2 

Mode and Save In 


LDB LM+3 

Link Table 


TBE 

Shift to New 


RIC P,B 

Memory Mode and 


JMP GQ 

Xfer to Desired Routine 


RETURN 




FROM GQ LDB 

FN 



RTR B,X 



LDB 

LM+2 

Restore Mode In 


STB 

M,X 

FN Mode Table 


TBE 


Shift Mode to 


ELB 

LM 

Calling Prog Mode NR. 


RIC 

B,P 

Return to Calling Prog. 

LINKAGE 




TABLE LM 

ZA 


0 

LM+2 

ZC 


Mode of Running FN 

LM+3 

ZC 


Mode of Subroutine 


2.3.6 TABLE SEARCH FOR COMPARISON 

Table search for comparison (using augmented memory 
address instructions). 

Solution: 

Assumption: Character (unknown) is in A register. 

Bank zero pointer refers to the origin of 
the table. Contents of X are zero. 


n 

GOA 

A,I 

Pointer O ZA TB-' 


SKN 

2 



JMP 

£21 



ASU 

X,N 

Is it end of table 


SKP 

6 



AAD 

X,N 

No Restore X Regi; 


JMP 

£2 

Loop 


SKF 

0 

Filler (No operation) 


ERROR 


Error 

£21 

FOUND 


Comparison 




Successful 



r\ 








2-8 





GENERAL AUTOMATION , INC . 


+N 


-C+C 1 
n n-l 


Where C- is the character for comparison 

2.3.7 PARITY CHECK 
To check parity (odd or even). 

Z = 8-bit character (including parity). 
Solution: 


LL 


AZE 

A 

Clear A 

ALD 

Y,10 

8 stage counter 

SHC 

Z 

Bit 0 to Link 8c Bit 7 

RLK 

A,A 


RDC 

Y,Y 

Decrement counter by 

SKZ 

2 


JMP 

LL 

Loop back 

SHR 

A 


SKS 

2 


JMP 

EVEN 

EVEN Parity OK 

JMP 

ODD 

ODD Parity OK 


2.3.8 PARITY GENERATION 
Generate Parity (odd or even). 

Z= 8-bit character (including parity position). 
Solution: 

Zero to A 


AZE 

A 

ALD 

Y,7 

SHC 

Z 

RLK 

A,A 

RDC 

Y,Y 

SKZ 

2 


Shift circular.. 

Bit 0-►Bit 7 8c Link. 

Add Link to A register 
Count logic “1” ’s 

All 7 bits counted 


JMP LL 
SHR A 
SHL Z 
* (Z) = Character 

w/even parity 
AXR Z.200. 


88A00106A 


No: Loop back 
Parity to Link Bit 
Shift Link to Bit 7 

(Parity to Bit 7) 

Toggle parity bit for odd 
parity. 


2.3.9 INDEXED JUMP 

Indexed jump through a jump vector table at TA. 


Solution: 


G0L A,1 


+ B contains the effective operand address 
viz the target address -1. 

RTR B,P Execute jump 

Location 0 = ZA TA,X 

X = Index 

TA | Target 

Address -1 


+1 

+2 

+3 

+4 

+5 

+6 

+7 


Target 
Address -1 


Target 
Address -1 


2-9 
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2.3.10 RANDOM MAPPING FUNCTION 

Input table mapped into output table with a random 
mapping function. 

Solution: 

* Pointers 0, 2, 4 contain the 

* references to Input, Output, and the 

* translator tables respectively. 

* 0 IN-1,Y,I 

* 2 OU,Z 

* 4 TR-1,Y,I 

* Translator table is in 1 to 1 

* correspondence with the input table: 

* The translator table contains the 

* indexes to the output table. 

AZE Y 


G0L 

A,I 

Fetch input character 

G4L 

z,i 

Fetch index to OU table. 
(Mapping function) 

G2S 

A,I 

Store in the appropriate 
entry in OU table. 

ASU 

Y,C 

Test for end of table 

SKP 

6 


AAD 

Y,C 


JMP 

LP 

Loop Back 

SKF 

0 

No operation 

JMP 

EXIT 

EXIT 


Note 

C = Table Length 

2.3.11 HOLLERITH CODE TO ASCII CODE 
CONVERSION 

To convert Hollerith code (card input) to ASCII (printer 
output), proceed as follows: 

Given: 

A 12-bit code, corresponding to rows 12 through 9 of a 
card column, is received for translation to a printer- 
compatible 8-bit code. 

Solution: 

The high-order (12-11-0) punch positions are isolated for 
use as a major index on a list of pointers to groups of 
ASCII characters. The low-order (1-9) punch positions 
are isolated for use as a minor index pointing to a 
character within a group. Multiple punches on low-order 
positions require a special technique in generating the 
minor index. 

Each bit found set causes a weighting factor to be 
included in a summation counter. The weighting factors 
are assigned by relative bit position within the field and 
correspond to the equivalent card row. 

Using the two indices a memory location is addressed to 
complete the translation from Hollerith to ASCII. 

Refer to the following program listing. 
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CONVERT HOLLERITH CODE TO ASCII 


LP 


K 


ALD 

X,K 

LOCATN OF TBL CONTAING MAJOR INDEX OPERATOR 

RTR 

B,A 

12-BIT HOLLERITH CODE 

TBB 


ROWS 12-1 OF CARD ARE RT-JUSTIFIED IN B-REG 

AAD 

X,B 

LOCATN OF PARTICULAR ASCII CHARACTER GRP 

RTR 

B,Z 


AND 

X, 376 

FORCE ROW-1 BIT TO ZERO 

SHR 

Z 

IF ROW-1 BIT POSITION 

AZE 

z 

CONTAINS A PUNCH THE ROW 

RLK 

z,z 

WEIGHTING FACTOR IS PLACED INTO SUM CNTR 

ALD 

Y/11 

ROW 9 AND ITS CORRESPONDING WEIGHTING FACTOR 

SHR 

A 

SHIFT ONE BIT TO LINK FOR TEST 

SKR 

4 


RTR 

Y/B 

IF BIT Y CROW Y) IS SET ADD ITS 

AAD 

Z/B 

ROW POSITION TO SUM CNTR 

RDC 

Y,Y 


SKZ 

2 


JMP 

LP 

ALL BITS NOT CHKD - GO BACK ON LOOP 

G0L 

A,X,I 

PICK UP ASCII(X,Z) 

ZA 

Tl/Z 

NO PUNCH IN ROWS 12-1 

ZA 

T2,Z 

PUNCH IN ROW 0 

ZA 

T3,Z 

PUNCH IN ROW 11 

ZA 

0 

FILLER 

ZA 

T4,Z 

PUNCH IN ROW 12 


T4 


ZC 

253 

n_l_n 

12 

ZC 

301 

"A" 

12-1 

ZC 

302 

"B" 

12-2 

ZC 

303 

"C" 

12-3 

ZC 

304 

"D" 

12-4 

ZC 

305 

tt^it 

12-5 

ZC 

306 

Ttpll 

12-6 

ZC 

307 

"G" 

12-7 

ZC 

310 

"H" 

12-8 

ZC 

311 

*T* 

12-9 

ZC 

277 

llQtt 

12-2-8 

ZC 

256 

tl 11 

12-3-8 

ZC 

251 

ll^M 

12-4-8 

ZC 

333 

M[ 11 

12-5-8 

ZC 

274 

!t<ll 

12-6-8 

ZC 

246 

Ugt. 

12-7-8 








k 


r\ 
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SECTION 3 

SPC-12 ARITHMETIC LIBRARY 


3.1 GENERAL 

The arithmetic library consists of a group of subroutines 
which perform double and triple precision fixed point, 
signed arithmetic using the A, Z, and sometimes Y 
registers as one operand and the PSEUDO-A registers as 
the other operand. Its contents are as follows: 

Arithmetic Library Working Storage. 

Save Registers Subroutine (SR). 

Restore Registers Subroutine (RR). 

Double Precision Add (AD). 

Double Precision Subtract (SD). 

Double Precision Multiply (MS). 

Double Precision Divide (DD). 

Triple Precision Add (AT). 

Triple Precision Subtract (ST). 

Triple Precision Multiply (MT). 

Triple Precision Divide (DT). 

3.2 USING THE ARITHMETIC LIBRARY 

In using the arithmetic library, the following comments 
will be helpful: 

a. The Arithmetic Library Working Storage is used 
by the different routines as indicated in the 
comments field of the Arithmetic Library 
Working Storage listing. For space require¬ 


ments, insertion or omission of storage may be 
made per user requirement. 

b. The Save Registers and Restore Registers sub¬ 
routines are included as part of the total 
SPC-12 Arithmetic Library Package. These sub¬ 
routines have been included for the case of the 
addition of the more complex user supplied 
arithmetic routines (such as Sin (X)/Cos (X), 
e' x , etc.); they are not needed for the arithme¬ 
tic routines in this arithmetic library. Omission 
or insertion is left to the user per system 
requirement. 

c. The Double Precision Add and Double Preci¬ 
sion Subtract subroutines exit through common 
coding contained within the Double Precision 
Add subroutine.** 

d. The Triple Precision Add and Triple Precision 
Subtract subroutines exit through common 
coding contained within the Triple Precision 
Add subroutine.** 

e. The Double Precision Multiply and Double 
Precision Divide subroutines exit through com¬ 
mon coding contained within the Double Preci¬ 
sion Multiply subroutine.** 

f. The Arithmetic Library subroutines are sup¬ 
plied in source tape form. To go from source to 
object, use GA Conversational Assembly Sys¬ 
tem program (CAS II) 88Z00003A. GA 


♦♦Should only one subroutine be desired and not the other for a 
particular system, the common coding must be incorporated. 
The addresses shown in the program listings in Section 4 are 
relative and for example purposes only. The user selects the 
actual addresses desired during the assembly process. 
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recommended shared command bytes. GA 
RCMD CCB, 88Y00015A, may be wed. The 
program listings shown in section 4 uses the 
Recommended Command Code Bytes. 

g. Register contents not obviously used by the 
subroutine, as indicated in calling sequence are 
either unused or preserved and restored at the 
end of the subroutine. 

h. For purposes of planning, listings of the tapes 
may be made by listing the source paper tape 
with the teletype ASR in the LOCAL mode. 

3.3 MEMORY REQUIREMENT 

The programmer may assemble the Arithmetic Library 
using the GA Recommended Shared Commands in order 
to conserve memory locations. The subroutine length in 
table 3-1 show the Arithmetic Library as assembled 
without use of shared commands. 

3.4 PROGRAM APPLICATION DOCUMENT 

3.4.1 SAVE REGISTERS SUBROUTINE (SR) 

Purpose: 

The contents of the A, X, Y, and Z registers are 

preserved in the arithmetic library storage, 

intended for use with complex math routines. 

Input: 

N/A (Not Applicable). 

Output: 

N/A 

Tables and Formats: 

N/A 


88A00106A 


Table 3-1. Arithmetic Library Subroutine Length 


Name 

Length 

(Unshared) 

Arithmetic Library Working Storage 

00 

«o 

Save Registers Subroutine 

1 52 8 

Restore Registers Subroutine 

u> 

to 

00 

Double Precision Add 

oo 

CO 

Double Precision Subtract 

33g* 

Double Precision Multiply 

274g 

Double Precision Divide 

330g* 

Triple Precision Add 

cn 

o 

00 

Triple Precision Subtract 

* 

00 

''t 

Triple Precision Multiply 

457 

Triple Precision Divide 

543 


"’These subroutines are interdependent and utilize common 
coding. Since the arithmetic package is considered an entity, 
the lengths shown do not include the common coding used. 

System Parameters: 

N/A 

Linkage: 

RIC P, B 
JMP SR 

Execution Time: 

Approximately 0.117 ms. 

Core Requirements: 

52 octal locations (unshared). 



r ^ 


9 
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Method: 

Remarks: 

References: 

W: Arithmetic Library Storage. 

3.4.2 RESTORE REGISTER SUBROUTINE (RR) 

Purpose: 

The contents of the A, X, Y, and Z registers are 
restored from the arithmetic library storage. Con¬ 
tents are originally stored by the save registers 
subroutine. 

Input: 

N/A (Not Applicable). 

Output: 

N/A 

Tables and Formats: 

N/A 

System Parameters: 

N/A 

Linkage: 

RIC P,B 
JMP RR 

Execution Time: 

0.082 ms. 


88A00106A 


Core Requirements: 

32 octal locations (unshared). 
Method: 

Remarks: 

References: 

W: Arithmetic Library Storage. 


3.4.3 ADD ARITHMETIC SUBROUTINE (AD) 
DOUBLE PRECISION 88Y00004A REV B 


Purpose: 


Add operand specified in Pseudo-A Register to 
contents of A and Z registers and store results in 
Pseudo-A register. 


Input: 


Registers A and Z contain the augend and 
Pseudo-A contains the addend. 


Output: 

Results in Pseudo-A register. 

Tables and Formats: 

Addend 


7 

6 5 

4 3 2 1 

0 

7 6 5 4 3 2 1 0 


” 1 1 " 1 

1 I" 1 1 


—1—1—1—1—1—1—1“ 

bJ 


PA 

_ 

PA+ 1 


L 


SIGN BIT 


PSEUDO-A REGISTER 
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System Parameters: 

Augend in physical 
registers A and Z. 


76 54321 0 76 5 43 2 10 



•SIGN BIT 


Linkage: 

RIC P, B 
JMP AD 

Execution Time: 

Approx. 0.078 ms. 

Core Requirements: 

34 octal locations (unshared). 

Method: 


The least significant byte of Pseudo-A (PA+1) is 
added to contents of Z register. The link bit is 
allowed to propagate into the contents of the A 
register. The more significant byte of Pseudo-A 
(PA) is added to contents of the A register. The 
result is stored in the Pseudo-A register. 


Remarks: 


The results of the addition will be in the A and Z 
registers as well as in Pseudo-A. Registers X and Y 
are not used by this subroutine. 


3.4.4 SUBTRACT ARITHMETIC SUBROUTINE (SD) 
• DOUBLE PRECISION 88Y00006A REV B 


Purpose: 


Subtract operand specified in A and Z registers 
from Pseudo-A register and store results in 
Pseudo-A register. 


Input: 


Registers A and Z contain the subtrahend. 


Output: 

Results in Pseudo-A register. 

Tables and Formats: 

Minuend in 
Pseudo-A register. 

7654321076543210 


PSEUDO-A REGISTER- 


•SIGN BIT 


System Parameters: 

Subtrahend in 
Registers A and Z. 


76543 21 0 76543210 



SIGN BIT 


Linkage: 


References: 


PA Arithmetic Library working storage. 


RIC P, B 
JMP SD 
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88A00106A 


Execution Time: 


Output: 


Approx. 0.1 ms. 


Core Requirements: 


Results of multiplication is in the Pseudo-A 
registers. 


33 octal locations (unshared). 


pa + 2 pa + 3 


Method: 


iSIGN BIT 


The contents of the A register is subtracted from 
the more significant byte of Pseudo-A register 
(PA). The contents of the Z Register are subtrac¬ 
ted from the least significant byte of Pseudo-A 
register (PA+1). If the link bit is set, the contents 
of the A register is decremented by one. 


Tables and Formats: 

Pseudo A 
Multiplicand. 


Remarks: 


Results of subtract is in A and Z registers as well as 
in Pseudo-A register. Registers X, and Y are not 
used by this subroutine. 


7 654 32 1(0 76 54 3 21 0 


S PA 


■SIGN BIT 


PSEUDO-A 

REGISTER 


References: 


PA Arithmetic Library working storage 
AD Double Precision Add. 


3.4.5 MULTIPLY ARITHMETIC SUBROUTINE (MS) 
DOUBLE PRECISION 88Y00008A REV B 


System Parameters: 
Multiplier 

contents of A and Z 
register. 


7 6 5 4 3 2 1 0 7 6 5 4 3 2 1 0 



■SIGN BIT 


fo multiply double precision number in Pseudo-A 
egister with contents of A and Z registers and 
tore results in Pseudo-A registers. 


Linkage 


R1C P, B 
JMP MS 


Execution Time: 


The Pseudo-A register contains the multiplicand 
and registers A and Z contain the multiplier. 


Approx. 0.80 ms min. 
Approx. 1.28 ms max. 



88A00106A 
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Core Requirements: 

274 octal locations. 

Method: 

The product is formed by successive adds and 
shifts. Successive additions of the multiplicand are 
done for each multiply indicated by a bit shifting 
out of the multiplier. Positive numbers are used 
during the process and an end correction is made 
for negative multipliers. 


Remarks: 


7 

0 

7 0 

7 0 

7 0 

S 

PA 

PA + 1 

PA + 2 

PA + 3 

T 




PSEUDO-A 

SIGN BIT 

_ DCCI II TO nc Ml ■■ Tin. 1. 

REGISTER 



Algorithm for binary point: 

(N1 @ Bl) x (N2 @ B2) = N1 • N2 @ Bl 

+ B2 + 1) 

Where: 

N1 and N2 are any binary numbers 
and: 

Bl and B2 are the binary points for these 
numbers 

The binary point is the position which separates 
the integer from the fractional portion of a 
number. Reference is made, counting from the 
left, from a fixed position between the sign bit and 
the next bit position to the right (binary scale = 
BO). 


Example: 


7 6 5 4 3 2 t 0 7 6 5 4 3 2 t 0 


—1—1—1— 

e WHOLE . 

-1-1- 

-1-1-1-1-1-1-1- 

NUMBER"*' 




BINARY POINT Bi = 4 


For double precision right justified integers, B = 
15. The resulting product will also be right 
justified, B = 31 (15 + 15 + 1). It is the user’s task 
to maintain the binary point. 

At exit, the contents of the A and Z registers are 
undefined. 

References: 

PA Arithmetic Library Storage. 


3.4.6 DIVIDE ARITHMETIC SUBROUTINE (DD) • 
DOUBLE PRECISION 88Y00010A REV B 


Purpose: 

Divide contents of Pseudo-A registers by the 
divisor in registers A and Z. Store quotient and 
remainder in Pseudo-A. 

Input: 

Registers A and Z contain the divisor. Pseudo-A 
contains the dividend. 

Output: 

Quotient in least significant bytes of Pseudo-A and 
remainder in most significant bytes of Pseudo-A. 


r*\ 


r 
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rs 


Tables and Formats: 

Pseudo-A 

Dividend. 


76543210765432 1 07654321076 5432 1 0 


I 

TTTTT 

PA 

i i i i r i i 

PA + 1 

TTTTTTT 

PA + 2 

—n—i i -i i i 

PA+ 3 

r 

(MSB) 

(LSB) 

*-SIGN BIT 




System Parameters: 

Registers A, Z 
Divisor. 


contents of X and Y. If the result is negative the 
divisor is added back to X and Y and a bit is 
zeroed. 

If the result is positive (the divisor goes into the 
numerator) a bit is set. The contents of X, Y, A 
and Z are shifted and the above is repeated until 
all of the numerator has had the divisor subtracted 
from it. The accumulation of the setting and 
resetting of a bit as the subtraction occurs forms 
the quotient. The remainder is stored in the two 
most significant bytes of the Pseudo-A. The 
quotient is stored in the least significant two bytes 
of Pseudo-A. 

Remarks: 




76543 2 1 076543210 
I I I I I III III I II 

11 A 2 

-SIGN BIT 


7 6 5 4 3 2 

1076543210 

"ITT 1 IT 

1 

1 1 1 1 1 1 1 

PA 


PA + 1 


REMAINDER 

PSEUDO-A 


Linkage: 


RIC P, B 
JMP DD 


7654321076543210 


r 

TT ITT 1 

TTTT7T r 

t 

PA + 2 

PA + 3 


QUOTIENT 


PSEUDO-A 




Execution Time: 

Approx. 2.3 ms min. 

Approx. 2.9 ms max. 

Core Requirements: 

330 octal locations. 

Method: 

Division is accomplished by subtracting the divisor 
from the numerator until the subtraction yields a 
negative result. The numerator is loaded into the 
X, Y, A and Z registers. A double precision 
subtract is performed between the divisor and the 


Common Rule: The divisor must be greater than 
the most significant half of the dividend. Algor¬ 
ithm for binary point is reverse that of the double 
precision multiply. 

NOTE 

For double precision right justified integer 
(B=31), the resulting quotient will also be 
right justified (B : 15). 

References: 

PA Arithmetic Library Storage. 

MS (Common Exit) Double Precision Multiply. 


3-7 




GENERAL AUTOMATION , INC. 


3.4.7 ADD ARITHMETIC SUBROUTINE (AT) • 
TRIPLE PRECISION 88Y00005A REV B 

Purpose: 

Add operand specified in Pseudo-A register to 
contents of A, Y, and Z registers, and store results 
in Pseudo-A register. 

Input: 

Registers A, Y, and Z contain augend. 

Output: 

Results in Pseudo-A. 

Tables and Formats: 

Addend 

Pseudo-A register. 

7.65432107654321 076 543210 


n 

l“"! 1 1 1 1 

—T 1(1111 

1 1 1 1 ITT 

H 

PA 

PA ^ 1 

PA ♦ 2 


C 


SIGN BIT 


System Parameters: 

Augend in registers 
A, Y, and Z. 


765432107654321076543210 

1—I— I I I I- 


r 


• n r T -r r i i 


TTTTTTT 


A 

SIGN BIT 


Linkage: 


R1C P, B 
JMP AT 


88A00106A 

Execution Time: 

Approx. 0.108 ms. 

Core Requirements: 

50 Octal Locations. 

Method: 

The least significant byte of Pseudo-A is added to 
the Z register. The link bit is allowed to propagate 
into the Y and A registers. The middle byte is 
added to the Y register and the link bit is allowed 
to propagate into the A register. The most 
significant byte of Pseudo-A is added to the A 
register and the contents of registers A, Y, and Z 
are stored in Pseudo-A. 

Remarks: 

References: 

PA Arithmetic Library Storage. 


3.4.8 SUBTRACT ARITHMETIC SUBROUTINE (ST) 
TRIPLE PRECISION 88Y00007A REV B 


Purpose: 


Subtract operand in A, Y, and Z from the 
Pseudo-A register and store results in the Pseudo-A 
register. 

Input: 

Registers A, Y, and Z contain the subtrahend and 
Pseudo-A contains the minuend. 

Output: 

Results in Pseudo-A register. 


c ^ 




r*\ 
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Tables and Formats: 


Remarks: 


Pseudo-A register 
minuend. 


References: 


7654321076543210765432 10 



SIGN BIT 


PA Arithmetic Library Storage. 

AT (Common Exit) Triple Precision Add. 

3.4.9 MULTIPLY ARITHMETIC SUBROUTINE (MT) 
TRIPLE PRECISION 88Y00009A REV B 


System Parameters: 


Subtrahend 


registers A, Y, Z. 


Purpose: 


To multiply the Pseudo-A register with the con¬ 
tents of A, Y, and Z registers and store the results 
in Pseudo-A. 


7 6 5 4 3 2 1 07654321076543210 



■SIGN BIT 


Linkage: 


RIC P, B 
JMP ST 


Input: 


The Pseudo-A register contains the multiplicand, 
and registers A, Y, and Z contain the multiplier. 


Output: 


The results of the multiplication is in the Pseudo-A 
registers. 


Execution Time: 


Approx. 0.140 ms. 


S PA PA • 


■SIGN BIT 


PA • 3 PA • 4 PA > S 


Core Requirements: 


47 octal locations. 


Method: 


Tables and Formats: 

Pseudo-A 

multiplicand. 


The contents of A, Y, and Z registers is subtracted 
from the Pseudo-A register. Subtraction is per¬ 
formed on a byte by byte basis and the Link is 
used to control borrowing from the next more 
significant byte. 


7654 32 1076 S 4 3 2 1 076543210 



■SIGN BIT 
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System Parameters: 

Multiplier 

contents of A, Y, and Z. 


7654321 0 7654 3 2 1 0 7 6 5 4 3 2 1 0 


I I I I I T 


i —i—i—i—i—i—r 


I 1 I I I I T 


E 


A 

SIGN BIT 


Linkage: 

RIC P, B 
JMP MT 

Execution Time: 

2.9 ms min. 

5.6 ms max. 

Core Requirements: 

457 octal locations. 

Method: 

The product is formed by successive adds and 
shifts. Successive adds of the multiplicand is done 
for each multiply, indicated by a bit shifting out 
of the multiplier. Positive numbers are used during 
the process and an end correction is made for 
negative multipliers. 

Remarks: 


L 


11111 
PA i 7 


11 i n i 

PA < 3 


1111 
PA • 4 


TTTT1 I I 
PA • 5 


SIGN BIT RESULTS OF MULTIPLY 
PSEUDO-A REGISTER 


88A00106A 


Algorithm for binary point: 

(N1 @ Bl) x (N2 @ B2) = (N1N2 @ B1 + B2 + 1 
(See Algorithm for Multiply Double Precision) 


References: 


PA Arithmetic Library Storage. 


3.4.10 DIVIDE ARITHMETIC SUBROUTINES (DT) 
TRIPLE PRECISION 88Y00011A REV B 


Purpose: 


Divide the contents of Pseudo-A registers by the 
divisor in registers A, Y, and Z. Store the quotient 
in least significant bytes of Pseudo-A and the 
remainder in most significant bytes of Pseudo-A. 


Input: 


Registers A, Y, and Z contain the divisor. 
Pseudo-A register contains the dividend. 


Output: 


Remainder in most significant bytes of Pseudo-A 
and quotient in least significant bytes of Pseudo-A. 


Tables and Formats: 


Dividend. 


C 


1 I I I I I 
PA* 1 


I I I I I I 
PA *7 


TTTTTTI 
PA • 4 


Tr r i T T f 

PA « & 


PSEUDO-A REGISTERS 


SIGN BIT 
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System Parameters: 

Registers A, Y, and Z 
divisor. 

7,6 5,4.3 2 1 076543 2 1 07 6 5 4321 0 



•SIGN BIT 


Linkage: 

RIC P, B 
JMP DT 

Execution Time: 


3.8 ms min. 
5.6 ms max. 


Core Requirements: 


543 octal locations. 


Method: 


Division is accomplished by subtracting the divisor 
from the numerator until the subtraction yields a 


negative result. A triple precision subtract is 
performed between the divisor and the numerator. 

Each time the divisor goes into the numerator a bit 
is set. The numerator is shifted left after each 
triple precision subtraction until all 46 bits of the 
numerator have been used. The quotient is the 
accumulation of the bits set and is stored in the 
least significant bytes of Pseudo-A. The remainder 
is what is left over after the shifting and it is stored 
in the most significant bytes of Pseudo-A. 


Remarks: 


76543210765432107 65 432 1 0 


PA + 1 


REMAINDER 


PA + 2 


7654 321076 5432107 6543210 


S PA + 3 


SIGN BIT 


QUOTIENT 


References: 


PA Arithmetic Library Storage. 
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SECTION 4 

ARITHMETIC PACKAGE 


4.1 GENERAL 


The listings associated with the arithmetic library sub¬ 
routines are included in this section. They are presented 
in the following order: 

a. Arithmetic Library Working Storage 

b. Save Registers 

c. Restore Registers 

d. Add Arithmetic Subroutine (Double Precision) 

e. Subtract Arithmetic Subroutine (Double 
Precision) 


f. Multiply (Double Precision) 

g. Divide Arithmetic Subroutine (Double Pre¬ 
cision) 

h. Add Arithmetic Subroutine (Triple Precision) 

i. Subtract Arithmetic Subroutine (Triple Pre¬ 
cision) 

j. Multiply (Triple Precision) 

k. Divide Arithmetic Subroutine (Triple Preci¬ 
sion) 
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4.2 ARITHMETIC LIBRARY WORKING STORAGE 


:: ARITHMETIC LIBRARY WORKING STORAGE 

:: 88Y00016A REV B 05-07-69 


4 * 4 * bA 4 **# 4 # 4 # 4 # 4 # 

0b 0b 0b 0b0b 0b0b 0b 0b 




0b 0b 0b 


» USE AS REQUIRED PER COMMENTS » }C 


PA 

bA bA bAbA 

0b 0b 0b0b 

zc 

4 # 4 # 4 # bA 4 

#»#» 0b 0 

0 

PSUEDO-A 


zc 

0 

+ 1 


zc 

0 

+2 


zc 

0 

+3 


zc 

0 

+4 


zc 

0 

+5 

:z 

ZR 

2 

USERS RETRN ADDR-AD,SD,MS ,00,AT, 

0\ 0b 0b 

:Y 

ZR 

2 

NESTED SUBR RETURN ADDRESS (SPARE-USAGE) 

0b 0b 0b 

:X 

ZR 

5 

TEMP.STG. (MS USES 5 LOCS) 

4 # 

0b 



(MT USES 3 LOCS) 




(DD USES 4 LOCS) 




(DD USES 5 LOCS) 

:W 

ZR 

12 

TEMP. STG. (USED BY SR,RR ONLY) 

:V 

ZR 

6 

TEMP.STG. (DT) 

0b 0b 0b 

:u 

4 # 4 # 4 A 

0b 0b 0b 

ZR 

4 

TEMP.STG.(SPARE USAGE) 


P 


















z 4 ^ 
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4.6 SUBTRACT ARITHMETIC SUBROUTINE (DOUBLE PRECISION) 


SUBTRACT ARITHMETIC SUBROUTINE (DOUBLE PRECISION) 
88Y00006A REV B 05-07-69 


CALLING SEQUENCE - 


ENTRY 


EXIT 


PA, PA+1 
-A, Z 

PA, PA+1 


RIC P, B 
JMP SD 


(MINUEND) 

(SUBTRAHEND) 

(ANSWER) 


SAVE RETURN 


:z+i 
A, 377 
Z,B 
Z,Z 
A, A 
PA 
A,B 
PA+1 
Z,B 
A, A 
<1 


TWO,S COMPLEMENT OF SUBTRAHEND 


SUBTRACT MOST FROM MOST 


SUBTRACT LEAST FROM LEAST 


6 









4-7 









GENERAL AUTOMATIONINC. -—-—- 

88A00106A 


RTR 

X, B 


STB 

:X+4 

BIT 7, =0 POS ; =1 NEG. CRESUUS) 

SKM 

2 


JMP 

<F 

RESULTS POS.; CK MULTIPLIER IF NEG. 

LDB 

PA 

CK MULTIPLICAND; IF NEG. , MAKE POS 

SKM 

2 


JMP 

<B 

MAKE MULTIPLIER POS. 

RTR 

B,X 


LDB 

PA+1 


RTR 

B/Y 


AXR 

X, 377 


AXR 

Y/B 


RIC 

Y/Y 


RLK 

X,X 


RTR 

Y /B 


STB 

PA+1 


RTR 

X,B 


STB 

PA 


JMP 

<C 


AXR 

A, 377 

MAKE MULTIPLIER POS. 

AXR 

Z/B 


RIC 

Z/Z 


RLK 

A, A 


AZE 

X 


AZE 

Y 


SHL 

A 

SHIFT MULTIPLIER 

SHL 

Z 


ALD 

ZZ,17 


SKS 

2 

DO WE MULTIPLY? 

JMP 

<E 

NO 

LDB 

PA+1 

YES (MULTIPLY) 

AAD 

Y/B 


RLK 

X,X 


LDB 

PA 


AAD 

X, B 


RDC 

ZZ,B 


SHR 

X 

SHIFT PARTIAL PROD. (X,Y,A,Z) 

SHL 

Y 

SHL 

A 


SHL 

Z 

t# 


RTR 

B,ZZ 

DECR SHIFT CTR 

SKM 

6 

LAST SHIFT ? 

SKS 

2 

NO, (DO WE MULTIPLY?) 

JMP 

<E 

CCNCD 

JMP 

<D 


SKF 

0 

(NOP) 

LDB 

:X+4 

IS RESULTS TO BE NEG. ? 

SKM 

2 

YES 

JMP 

<3 

STORE RESULTS (X,Y,A,Z) 
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4.8 DIVIDE ARITHMETIC SUBROUTINE (DOUBLE PRECISION) 


«#*#*#*****# 


DD 


<G 


DIVIDE ARITHMETIC SUBROUTINE (DOUBLE PRECISION) 

88Y00010A REV B 5/07/69 

: ^ CALLING SEQUENCE - RIC P, B 

JMP DD 

PA, PA+1, PA+2, PA+3 
A, Z (DIVISOR) 

PA, PA+1, PA+2, PA+3 (DIVIDEND) 

REMINDER, QUOTIENT 


ENTRY 

EXIT 


STB 

:Z 

TBB 

STB 

:Z+1 

RTR 

X,B 

STB 

:x 

TBB 

STB 

:x+i 

RTR 

Y,B 

STB 

:x +2 

TBB 

STB 

:X+3 

RTR 

A,B 

SKM 

2 

JMP 

<G 

AXR 

Z, 377 

AXR 

A, B 

RIC 

z,z 

RLK 

A, A 

LDB 

:z+l 

RTR 

B, Y 

AXR 

Y, 200 

RTR 

Y,B 

STB 

:z+i 

RTR 

A,B 

STB 

: 1 

RTR 

Z, B 

STB 

:2 

LDB 

PA+3 

RTR 

B,Z 

LDB 

PA+2 

RTR 

B, A 

LDB 

PA+1 

RTR 

B,Y 

LDB 

PA 

RTR 

B,X 


SAVE RETURN 


STORE X AND Y REGS. 


IS DIVISOR NEGATIVE 

NO 

YES 


TRIGGER SIGN FLAG 


STORE DIVISOR 

PUT DIVIDEND IN X,Y,A AND Z 


88 A 00106 A 


% 
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SKM 

2 

IS DIVIDEND NEGATIVE 



JMP 

<H 

NO 



AXR 

Z, 377 

NEGATE 



AXR 

A,B 




AXR 

Y,B 




AXR 

X, B 




RIC 

Z,Z 




RLK 

A, A 




RLK 

Y,Y 




RLK 

X,X 




RTR 

Y/B 




STB 

: 3 

(TEMP.STORE) 



LDB 

:Z+1 

TRIGGER SIGN FLAG 



RTR 

B,Y 




AXR 

Y, 200 




RTR 

Y/B 




STB 

:z+l 




ALD 

Y ,0 

(RESTORE Y) 


:3 

ZL 

«-l 



<H 

ALD 

B, 357 




STB 

:3 

STORE COUNTER 


<1 

ASU 

X,0 



: 1 

ZL 

::_1 




ASU 

Y,0 



:2 

ZL 

»-l 




SKS 

2 




RDC 

X,X 




RTR 

X,X 

IS RESULT NEGATIVE 



SKM 

6 




ALD 

B,001 




JMP 

<J 

NO 



ZC 

100 

(NOP) 



LDB 

:2 

YES 



AAD 

Y/B 




SKR 

2 




RIC 

X,X 




LDB 

: l 




AAD 

X,B 




TBB 


ZERO B REG, RESET QUOTIENT BIT 



TBB 




<d 

STB 

:4 




LDB 

:3 

16 TIMES ? 



RIC 

B,B 




SKR 

2 




JMP 

<K 




STB 

:3 




RTR 

X,B 

SHIFT X,Y,A,Z LEFT ONE BIT 



AAD 

X,B 




RTR 

Y/B 




AAD 

Y,B 
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4.9 ADD ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 


« ADD ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 
» 88Y00005A REV.B 5/07/69 


CALLING 

SEQUENCE - 


RIC 

P, B 




JMP 

AT 

ENTRY 

PA, 

PA+1, PA+2 


(ADDEND) 


+ A, 

Y, Z 


(AUGEND) 

EXIT 

PA, 

PA+1, PA+2 


(ANSWER) 


AT 


<2 


STB 

TBB 

:Z 

SAVE RETURN ADDRESS 

STB 

:z+i 


LDB 

PA+2 

ADD LEAST TO LEAST 

AAD 

Z, B 


RLK 

Y,Y 


RLK 

A, A 


LDB 

PA+1 

ADD MIDDLE TO MIDDLE 

AAD 

Y,B 


RLK 

A, A 


LDB 

PA 

ADD MOST TO MOST 

AAD 

A, B 


RTR 

A,B 


STB 

PA 

STORE MOST 

RTR 

Y,B 


STB 

PA+1 

STORE MIDDLE 

RTR 

Z,B 


STB 

PA+2 

STORE LEAST 

ELB 

:Z 


RIC 

B,P 

RETURN 
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4.10 SUBTRACT ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 




SUBTRACT ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 
88Y00007A REV. B 5/07/69 


CALLING 

SEQUENCE - 



RIC P, B 

JMP ST 

ENTRY 

PA, 

PA+1, 

PA+2 

(MINUEND) 


- A, 

Y, 

Z 

,(SUBTRAHEND) 

EXIT 

PA, 

PA+1, 

PA+2 

(ANSWER) 


ST 



STB 

TBB 

:Z 

SAVE RETURN 

STB 

: Z+l 


AXR 

A,377 

GET TWO'S COMPLEMENT OF SUBTRAHEND 

AXR 

Y,B 


AXR 

Z, B 


RIC 

Z,Z 


RLK 

Y,Y 


RLK 

A, A 


LDB 

PA 

SUB MOST FROM MOST 

AAD 

A, B 


LDB 

PA+1 

SUB MIDDLE FROM MIDDLE 

AAD 

Y,B 


RLK 

A, A 


LDB 

PA+2 

SUB LEAST FROM LEAST 

AAD 

Z,B 


RLK 

Y,Y 


RLK 

A, A 


JMP 

<2 










m 


GENERAL AUTOMATIONINC. 


88A00106A 


4.11 ARITHMETIC MULTIPLY SUBROUTINE (TRIPLE PRECISION) 


ARITHMETIC MULTIPLY SUBROUTINE (TRIPLE PRECISION) 
88Y00009A REV B 05-07-69 


CALLING SEQUENCE - 


RIC P, B 
JMP MT 


ENTRY- 

PA, 

+ 1/ 

+2 


:: A, 

Y, 

Z 

EXIT - 

PA, 

+ 1/ 

+2 


(MULTIPLICAND) 

(MULTIPLIER) 


(ANSWER) 


SAVE RETURN 


SAVE X 


:x+i 
A, 377 
Y,B 
Z/B 

<5 

<6 

<7 

A, X 
PA 
X,B 
X,B 
IX+2 
2 

<R 

PA 

2 

<N 

PA+2 

B, X 
X,377 
X,B 
PA+2 
PA+1 


INSURE MULTIPLIER 8-BITS EA. BYTE 


ZERO (PARTIAL) PRODUCT ACCUMULATORS 


MULTIPLIER TO X-REG. 


BIT7; =0 POS., =1 NEG. (RESULTS) 

RESULTS POS.; CK MULTIPLIER IF NEG. 
CK MULTIPLICAND; IF NEG.MAKE POS. 

GO MAKE MULTIPLIER POS. 

(MAKE MULTIPLICAND POS.) 


4-15 
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RTR 

B,X 

AXR 

X,377 

RLK 

X,B 

STB 

PA+1 

LDB 

PA 

RTR 

B, X 

AXR 

X, 377 

RLK 

X,B 

STB 

PA 

JMP 

<0 

AXR 

A, 377 

AXR 

Y,B 

AXR 

Z,B 

RIC 

z,z 

RLK 

Y/Y 

RLK 

A, A 

SHL 

A 

SHL 

Y 

SHL 

Z 

ALD 

B, 27 

STB 

<8 

SKS 

2 

JMP 

<0 

LDB 

PA+2 

RTR 

B,X 

LDB 

<7 

AAD 

X, B 

RTR 

X,B 

STB 

<7 

LDB 

PA+1 

RLK 

B,X 

RLK 

YY,YY 

LDB 

<6 

AAD 

X, B 

RTR 

X, B 

RLK 

YY.YY 

STB 

<6 

RTR 

YY, X 

LDB 

PA 

AAD 

X,B 

LDB 

<5 

AAD 

X, B 

RTR 

X, B 

STB 

<5 

ALD 

X,0 

ZL 

::_1 

RDC 

X, B 

STB 

<8 

ALD 

X,0 

ZL 

»-l 


MAKE MULTIPLIER POS. 


SET SHIFT CTR 

DO WE MULTIPLY? 

NO 

YES,(MULTiPLY),ADD M-CAND TO MSB, P 


SET AS LINK 

SET AS LINK 

XFR POSSIBLE LINK BIT TO X 


DECREMENT SHIFT CTR 
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SHR 

X 

RTR 

X,B 

STB 

<5 

ALD 

X,0 

ZL 

x_l 

SHL 

X 

RTR 

X,B 

STB 

<6 

ALD 

X,0 

ZL 

«_1 

SHL 

X 

RTR 

X, B 

STB 

<7 

SHL 

A 

SHL 

Y 

SHL 

Z 

LDB 

<8 

SKM 

6 

SKS 

2 

JMP 

<Q 

JMP 

<P 

SKF 

0 

LDB 

:x +2 

SKM 

2 

JMP 

<4 

AXR 

Z, 377 

AXR 

Y,B 

AXR 

A,B 

RIC 

z,z 

RLK 

Y,Y 

RLK 

A, A 

LDB 

7 

RTR 

B, X 

AXR 

X, 377 

RLK 

X, B 

STB 

<7 

LDB 

<6 

RTR 

B,X 

AXR 

X, 377 

RLK 

X, B 

STB 

<6 

LDB 

<5 

RTR 

B,X 

AXR 

X, 377 

RLK 

X,B 

STB 

<5 

LDB 

<5 

STB 

PA 

LDB 

<6 

STB 

PA+1 


NO - SHIFT 48 PART. PROD. THRU 


FETCH DECREMENTED SHIFT CTR COUNT 
LAST SHIFT ? 

NO, (DO WE MULTIPLY?) 

(NO) 

(YES MULT) 

(NOP) 

IS RESULTS TO BE NEG.? 

YES 

NO, STORE RESULTS 

YES, NEG. RESULTS (:V+0,+l,+2,A,Y 


STORE RESULTS IN PSEUDO A, AND REST 



8 
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4.12 DIVIDE ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 


DIVIDE ARITHMETIC SUBROUTINE (TRIPLE PRECISION) 

88Y00011A REV C 5/07/69 

CALLING SEQUENCE - RIC P, B 

UMP DT 

ENTRY PA,PA+1, PA+2,PA+3,PA+4,PA+5 (DIVIDEN 


A, Y, Z 

(DIVISOR) 

EXIT PA,PA+l,PA+2 

PA+3,PA+4,PA+5 

(REMAINDER) 

(QUOTIENT) 


DT STB :Z SAVE RETURN 

TBB 


STB 

:z+i 


RTR 

X,B 


STB 

:x 

SAVE X-REG. 

TBB 


' 

STB 

:x+i 


LDB 

:z+l 


RTR 

B,X 

X HOLDS SIGN FLAG 

RTR 

A, B 


SKM 

2 

IS DIVISOR NEGATIVE? 

JMP 

:A 

NO 

AXR 

1,371 

NEGATE DIVISOR 

AXR 

Y/B 


AXR 

A,B 


RIC 

z,z 


RLK 

Y/Y 


RLK 

A, A 


AXR 

X, 200 

TRIGGER SIGN FLAG 

RTR 

X, B 


STB 

:Z+1 


RTR 

A,B 

STORE DIVISOR 

STB 

: 5 


RTR 

Y,B 


STB 

:6 


RTR 

Z,B 


STB 

:7 



9 
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LDB 

PA+5 

STB 

:v+5 

LDB 

PA+4 

STB 

:V+4 

LDB 

PA+3 

STB 

:V+3 

LDB 

PA+2 

STB 

:V+2 

LDB 

PA+I 

STB 

:V+l 

LDB 

PA 

STB 

:V 

SKM 

2 

JMP 

:C 

AXR 

X, 200 

RTR 

X,B 

STB 

:z+l 

ALD 

X, 005 

ALD 

Z,001 

RTR 

Z,Y 

AZE 

Z 

ALD 

A, 377 

LDB 

:V,X 

AXR 

A,B 

RTR 

Y/B 

AAD 

A,B 

RLK 

z,z 

RTR 

A, B 

STB 

:v,x 

RDC 

x,x 

SKM 

2 

JMP 

:B 

LDB 

:V 

RTR 

B,X 

LDB 

:V+1 

RTR 

B/Y 

LDB 

:V+2 

RTR 

B, A 

LDB 

:V+3 

RTR 

TBB 

TBB 

B/Z 

STB 

:X+4 

ALD 

B, 367 

STB 

:X+2 

ASU 

X,0 

ZL 

::_1 


MAKE NUMERATOR CONTIGUOUS 


IS NUMERATOR NEGATIVE 
NO 

YES, TRIGGER SIGN FLAG 


LOAD PART OF NUMERATOR 'INTO REGS. 


RESET COUNTER 
SUBTRACT FROM NUMERATOR 
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ASU 

Y,0 

ZL 

*-l 

SKS 

2 

RDC 

X,X 

ASU 

A,0 

ZL 

::_1 

SKS 

6 

ZC 

100 

RDC 

Y,Y 

SKS 

2 

RDC 

X,X 

RTR 

X,X 

SKM 

6 

ALD 

B,001 

JMP 

:f 

ZC 

100 

LDB 

:7 

AAD 

A, B 

RLK 

Y,Y 

RLK 

X,X 

LDB 

:6 

AAD 

Y,B 

RLK 

x,x 

LDB 

:5 

AAD 

TBB 

TBB 

X, B 

STB 

:X+3 

LDB 

:X+2 

RIC 

B,B 

SKR 

2 

JMP 

:H 

STB 

:X+2 

RTR 

X,B 

AAD 

X, B 

RTR 

Y,B 

AAD 

Y,B 

RLK 

X,X 

RTR 

A,B 

AAD 

A,B 

RLK 

Y,Y 

RTR 

Z,B 

AAD 

Z,B 

RLK 

A, A 

LDB 

:X+3 

AAD 

Z,B 

JMP 

:e 

LDB 

:x+4 

SKZ 

2 


(NOP) 


(NOP) 

ADD BACK, DVSR DID NOT GO INTO NUM 


STORE QUOTIENT BIT 
COUNTER REAC 8 


SHIFT LEFT ONE BIT 


WHICH PASS? 
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AAD 

Z,B 

ADD QUOTIENT BIT 

LDB 

:Z+l 

SHOULD RESULT BE NEGATIVE? 

SKM 

2 


JMP 

:L 


AXR 

Y,377 

NEGATE RESULTS 

AXR 

A,B 


AXR 

Z,B 


RIC 



RLK 

A, A 


RLK 

Y,Y 


RTR 

Y/B 


STB 

PA+3 

STORE RESULTS - 

RTR 

A,B 


STB 

PA+4 


RTR 

Z,B 


STB 

PA+5 


ELB 

:X 


RTR 

B,X 


ELB 

:Z 

RETURN 

RIC 

B/P 





88A00106A 



GENERAL AUTOMATION, INC. 






JMP 

:j 


RTR 

Z,B 

1ST PASS STORE PARTIAL RESULTS 

STB 

PA+3 


LDB 

:V+4 


RTR 

B/Z 


RDC 

B,B 


STB 

:X+4 

SET PASS 2 SWITCH 

ALD 

B, 370 

RESET COUNTER 

STB 

:X+2 


JMP 

:G 


RTR 

B,B 

2ND PASS ? 

SKM 

2 


JMP 

:K 

NO 

RTR 

Z/B 

STORE NEXT PARTIAL VALUE 

STB 

PA+4 


LDB 

:V+5 


RTR 

B/Z 


ALD 

B,001 


JMP 

: I 


RTR 

X,B 

3RD PASS 

STB 

PA 

STORE REMAINDER 

RTR 

Y/B 


STB 

PA+1 


RTR 

A,B 


STB 

PA+2 


LDB 

PA+4 

PUT QUOTIENT INTO Y,A, AND Z 

RTR 

B,A 


LDB 

PA+3 


RTR 

B/Y 


AAD 

Y/B 

SHIFT LEFT ONE BIT POSITION 

RTR 

A, B 


AAD 

A,B 


RLK 

Y/Y 


RTR 

Z/B 


AAD 

Z/B 


RLK 

A, A 


LDB 

:X+3 



r*s 
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APPENDIX A 

PGS BOOTSTRAP LOADER 


BUS II BOOTSTRAP 

88Y00014A REV A 1-11-69 SHEET 1 NEXT 1 
OPERATING SEQUENCE 

1. ENTER BOOTSTRAP INTO MEMORY FROM THE 
CONSOLE SWITCHES AT LOCATION 1000. 



2. 

SWITCH 

TTY 

ASR TO ON-LINE. 


3. 

SET I 

REGISTER = 2100. 


4. 

SET P 

REGISTER = 0777. 


5. 

R/I SWITCH 

TO RUN AND PRESS STEP. 


6. 

PLACE 

SPC- 

12 BOOT FORMAT LOADER PAPER 



TAPE INTO 

THE TTY READER WITH THE FIRST 



CHARACTER 

OVER THE READ SENSORS. 


7. 

SWITCH 

TTY 

READER TO START. 


8. 

BOOTSTRAP 

LOADS ONLY THE LOADER AND WILL 



AUTOMATICALLY PASS CONTROL TO THE 



LOADER 

TO 

CONTINUE THE LOADING PROCESS. 


9. 

WHEN READER RUNS OUT OF TAPE IT WILL STOP 



ADDITIONAL 

TAPES MAY BE LOADED OR CONTROL 



MAY BE 

TRANSFERRED AS DESIRED THRU MANUAL 



PROCEDURES 

USING THE SPC-12 PROGRAMMER’S 



CONSOLE OR 

THRU THE POWER FAIL/AUTO 



RESTART FEATURE (AN OPTION). 


ZO 

1000 




ZN 




01000 B1 

ALD 

X, 120 


SET X = INITIAL ADDRESS 

01003 B2 

SHI 

B 


WAIT FOR SYNC BIT 

01005 

SKZ 

2 



01006 

JMP 

B2 



01010 

RIC 

P,YY 


SET BIT COUNTER 

01012 

ALD 

Z, 300 


FORCE 5.53 MS DELAY 

01015 B4 

RTR 

P,ZZ 


SET 8.85 MS DELAY 

01017 

SHI 

A 


INPUT BIT 

01021 B5 

RIC 

z,z 


DELAY LOOP 

01023 

RTR 

zz,zz 



01025 

SKF 

0 



01026 

SKZ 

2 



01027 

JMP 

B5 



01031 

RDC 

YY,YY 


COUNT BIT 

01033 

SKZ 

2 


IS CHARACTER IN? 

01034 

JMP 

B4 


NO 

01036 

G0S 

A,X 


YES,STORE CHARACTER 


A-l 
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01040 

RIC 

X,X 

INCREMENT ADDRESS INDEX 

01042 

ASU 

A, 117 


01045 

SKZ 

2 

IS LOADER IN? 

01046 

JMP 

B2 

NO-GET NEXT CHARACTER 

01050 

JMP 

LI 

YES-JUMP TO LOADER 

LI 

ZL 

264 



ZD 




r*) 


01000 004 111 120 014 045 131 142 003 
01010 010 164 004 113 300 010 374 014 
01020 040 010 133 010 377 100 131 142 
01030 021 010 266 131 142 015 000 130 
01040 010 111 004 210 117 131 142 003 
01050 140 264 
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APPENDIX B 

SERIAL TELETYPE I/O, ASR 33, 35 


SERIAL TTY I/O - ASR-33,-35 
88Y00000A REV A 1-2-69 SHEET 1 NEXT 1 

#»****rwww%*w*#wwwww«#wwwww*#www%#%#w« 

THE COMMANDS OF THIS ROUTINE 
MUST NOT BE ASSEMBLED SHARED 
THIS ROUTINE MAY BE ASSEMBLED 
INTO ANY MEMORY MODE 


CALLING SEQUENCES 
INPUT ONLY - R 
J 

INPUT/ECHO - R 
J 

REG’S @ ENTRY - 


REG'S @ EXIT - 


OUTPUT - R 
J 

REG'S @ ENTRY - 


REG'S @ EXIT - 


IP, B 
TI 

IP,B 

TE 

A=NOT DEF 
X=NOT DEF 
Y=NOT DEF 
Z=NOT DEF 
A=INPUT CHAR 
X=NOT DISTRUBED 
Y=NOT DISTRUBED 
Z=NOT DISTRUBED 
IP, B 
TO 

A=OUTPUT CHAR 
X=NOT DEF 
Y=NOT DEF 
Z=NOT DEF 
A=377 

X=NOT DISTRUBED 
Y=NOT DISTRUBED 
Z=NOT DISTRUBED 


00120 TO 
00122 

STB 

TBB 

TB 

TTY OUTPUT 

00124 

STB 

TB+1 


00126 

SHRO 

B 

OUTPUT SPACE 

00130 

LDB 

TI+1 


00132 

STB 

T4+4 

SET'OR'CMD 

00134 

ALD 

B, 120 


00137 

STB 

T4+1 

SET SERIAL CMD 

00141 

LDB 

TA 


00143 Tl 

STB 

TC 

SET BIT COUNT 
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00145 T2 

LDB 

T3 

9MS DELAY 

00147 

T3 

RIC 

B,B 

DELAY LOOP 

00151 


STB 

TD 


00153 


STB 

TD 


00155 


STB 

TD 


00157 


STB 

TD 


00161 


SKZ 

2 


00162 


JMP 

T3 


00164 


LDB 

TC 

COUNT BIT 

00166 


RIC 

B,B 


00170 


STB 

TC 


00172 


SKR 

4 


00173 


SHLO 

B 

OUTPUT MARK 

00175 


JMP 

T2 


00177 


SKM 

4 


00200 


ELB 

TB 


00202 


RIC 

B/P 

EXIT 

00204 


SHCO 

A 

SERIAL IN/OUT/ECHO 

00206 


AOR 

A, 200 

OUT=200,IN=000 

00211 

** 

JMP 

T2 


00213 

** 

TI 

PLR 


TTY INPUT 

00215 


SKR 

2 


00216 

TE 

PLS 


TTY INPUT/ECHO 

00220 


STB 

TB 


00222 


TBB 



00224 


STB 

TB+1 


00226 


LDB 

TF 


00230 


SKS 

2 


00231 


LDB 

T5+1 


00233 


STB 

T4+1 

SET SERIAL CMD 

00235 


TBB 



00237 


STB 

T4+4 

SET'OR’CMD 

00241 


LDB 

TA 


00243 


STB 

TC 

SET BIT COUNT 

00245 

T5 

SHI 

A 

LOOK FOR SPACE 

00247 


SKZ 

2 


00250 


JMP 

T5 


00252 


LDB 

TI+1 

4.5MS DELAY 

00254 


JMP 

T3+2 


00256 

TA 

ZC 

366 

BIT COUNT 

00257 

TB 

ZR 

2 

RTRN ADDR STO 

00261 

TC 

ZC 

0 

BIT COUNTER 

00262 

TD 

ZC 

0 

DELAY LOOP STO 

00263 

TF 

ZC 

140 

INPUT/ECHO CCB 


88A00106A 
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00120 

300 

ZD 

257 

014 

205 

300 

260 

014 

105 

00130 

340 

214 

300 

210 

004 

115 

120 

300 

00140 

205 

340 

256 

300 

261 

340 

147 

010 

00150 

155 

300 

262 

300 

262 

300 

262 

300 

00160 

262 

131 

140 

147 

340 

261 

010 

155 

00170 

300 

261 

106 

014 

115 

140 

145 

116 

00200 

160 

257 

010 

145 

014 

120 

004 

070 

00210 

200 

140 

145 

014 

200 

105 

014 

201 

00220 

300 

257 

014 

205 

300 

260 

340 

263 

00230 

125 

340 

246 

300 

205 

014 

205 

300 

00240 

210 

340 

256 

300 

261 

014 

040 

131 

00250 

140 

245 

340 

214 

140 

151 

366 

155 

00260 

150 

000 

000 

140 
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APPENDIX C 

PGS PAPER TAPE LOADER/PUNCH 


PGS PAPER TAPE LOADER/PUNCHER 
88Y00001A REV A 01-10-69 SHEET 


FORMATTED PAPER TAPE LOADER 


1. LOAD BOOT FORMAT LOADER WITH SPC-12 SERIAL 
TTY BOOTSTRAP LOADER. 

2. INITIATE LOADER AT LOCATION LI. 

3. PLACE FORMATTED PAPER TAPE INTO ASR READER 
AND SWITCH READER TO START. 

4. EACH TAPE RECORD CONTAINS A START ADDRESS, 
MEMORY MODE, AND 1 OR MORE DATA BLOCKS OF 
255 CHARACTERS AND A CHECKSUM. 

5. AS EACH DATA BLOCK IS COMPLETED, THE LOADER 
WILL OUTPUT 7 RUBOUTS OR IF A CHECKSUM ERROR 
OCCURS ERR IS OUTPUT. 

6. TO LOAD A TAPE AT AN ADDRESS OTHER THAN THE 
ADDRESS SPECIFIED ON THE TAPE, PERFORM THE 
FOLLOWING AT STEP 2. 

SET X = MEMORY MODE. 

SET Y = START ADDRESS. 

INITIATE LOADER AT LOCATION L2. 



4* 

*4 

U 

SPC- 

12 CONSOLE 

ENTRIES 



ZN 



(30264 

LI 

TBB 



00266 


TBB 



00270 


SKZ 

2 


00271 

L2 

RDC 

B, B 


00273 

4# 

RDC 

P/Z 

RETURN ADDRESS 


4* 

#4 

4# 

PROGRAM ENTRY 


00275 

LD 

STB 

LC 

SET ORIGIN FLAG 

00277 


RIC 

P,B 


00301 


JMP 

TE 

READ A CHARACTER 

00303 


RTR 

A,B 



88A00106A 


C-l 




88A00106A 



GENERAL AUTOMATION , INC. — 


00305 

SKZ 

2 

CHARACTER = BLANK? 

00306 

JMP 

LD+2 

NO 

00310 

RIC 

P/B 


00312 

JMP 

TE 

REAL) A CHARACTER 

00314 

RIC 

A, B 


00316 

SKZ 

2 

CHARACTER = RUBOUT? 

00317 

JMP 

LD+6 

NO 

00321 

RIC 

P,B 

READ MEMORY MODE 

00323 

JMP 

TI 


00325 

LDB 

LC 


00327 

SKN 

2 

MODE SPECIFIED IN X? 

00330 

RTR 

A,X 

NO 

00332 

RTR 

X, B 


00334 

TBE 


SET MODE 

00336 

RIC 

P,B 

READ START ADDRESS 

00340 

JMP 

TI 


00342 

RTR 

A,X 


00344 

RIC 

P,B 


00346 

JMP 

TI 


00350 

LDB 

LC 


00352 

SKN 

4 

ADDRESS SPECIFIED IN Y? 

00353 

RTR 

X,Y 

NO - START ADDRESS TO Y 

00355 

RTR 

A,YY 


00357 

RTR 

Y/X 



READ 

A BLOCK 


00361 L3 

RIC 

P/B 

READ BLOCK LENGTH 

00363 

JMP 

TI 


00365 

RTR 

A,B 

INITIALIZE CHECKSUM 

00367 

RTR 

B,Y 


00371 

SKN 

2 

BLOCK LENGTH = 0? 

00372 

RIC 

Z,P 

YES - EXIT 


READ 

A CHARACTER 


00374 L4 

STB 

LC 

RESTORE CHECKSUM 

00376 

RIC 

P/B 

READ A CHARACTER 

00400 

JMP 

TI 


00402 

RTR 

A,B 

SAVE CHARACTER 

00404 

STB 

LS 


00406 

LDB 

LC 

FORM NEW CHECKSUM 

00410 

AXR 

A,B 


00412 

SHC 

A 


00414 

RTR 

Y/Y 


00416 

SKZ 

6 

BLOCK LENGTH = 0? 

00417 

LDB 

LS 

NO - STORE CHARACTER 

00421 

STB 

0,X 



C-2 










GENERAL AUTOMATION , INC .. 


88A00106A 


00423 


RIC 

X,X 


INCREMENT LOCATION 

00425 


RTR 

A,B 



00427 


RDC 

Y,Y 


DECREMENT BLOCK LENGTH 

00431 


SKR 

2 


ALL DONE? 

00423 


JMP 

L4 


NO 



SEND ASSURANCE 

MESSAGE 

00434 

L5 

STB 

LC 


RESTORE CHECKSUM 

00436 


ELB 

LM 



00440 


RTR 

B,Y 



00442 

L6 

G0L 

A,Y 


SEND 1 CHARACTER 

00444 


SKN 

2 



00445 


JMP 

L3 



00447 


LDB 

LC 



00451 


SKN 

2 


CHECKSUM GOOD? 

00452 


RDC 

B,A 


YES 

00454 


RIC 

P,B 



00456 


JMP 

TO 



00460 


RIC 

Y/Y 



00462 


JMP 

L6 



00464 

LM 

ZA 

LE 


ERROR MSG ADDRESS 

00466 

LE 

ZC 

377 


RUBOUT 

00467 


ZC 

215 


CARRIAGE RETURN 

00470 


ZC 

212 


LINE FEED 

00471 


ZC 

305 


E 

00472 


ZC 

322 


R 

00473 


ZC 

322 


R 

00474 


ZC 

0 


EOM 

00475 

LC 

ZC 

377 


CHECKSUM 

00476 

LS 

ZC 

117 


TEMP STORAGE 



ZD 




00264 

014 

205 014 

205 



00270 

131 

010 255 

010 

234 

301 075 010 

00300 

154 

140 216 010 

350 

131 140 277 

00310 

010 

154 140 

216 

010 

150 131 140 

00320 

303 

010 154 

140 

213 

341 075 111 

00330 

010 

310 010 

351 

014 

206 010 154 

00340 

140 

213 010 

310 010 

154 140 213 

00350 

341 

075 112 

010 

321 

010 369 010 

00360 

312 

010 154 

140 

213 

010 350 010 

00370 

325 

111 010 

143 

301 

075 010 154 

00400 

140 

213 010 

350 

301 

076 341 075 

00410 

004 040 014 020 010 

322 133 341 

00420 

076 

320 000 010 

111 

010 350 010 
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00430 

00440 

00450 

00460 

00470 


00477 


00501 

00503 

00505 

00507 


00511 


222 

105 

140 

374 

301 

075 

161 

064 

010 

325 

000 

200 

111 

140 

361 

341 

075 

111 

010 

205 

010 

154 

140 

120 

010 

122 

141 

042 

066 

001 

377 

215 

212 

305 

322 

322 

000 

377 

117 



jC}»«««cp GS PAPER TAPE LOADER/PUNCHER 
« 88Y00001A REV A 1-10-69 SHEET 2 NEXT 2 

}i NO ENTRY POINT IN THIS PROGRAM WILL GENERATE 

}s A LEADER 

y ' y:: BOOT FORMAT PAPER TAPE PUNCHER 

4\ 

}{}{ BUS II ENTRY 


PK ELB PE LOAD B WITH RETURN TO BUS 

PROGRAM ENTRY 

}: 1. SET X REGISTER = END ADDRESS (476) 

5C 2. SET Y REGISTER = START ADDRESS (120) 

* 3. SET Z REGISTER = BLOCK LENGTH (357) 

* 4. SET B REGISTER = RETURN ADDRESS 

5. JUMP TO PB 

CONSOLE ENTRY 


* 

1 . 

SET X 

REGISTER = END ADDRESS (476) 

0 

\ 

2. 

SET Y 

REGISTER = START ADDRESS (120) 


3. 

SET Z 

REGISTER = BLOCK LENGTH (357) 

0 

% 

4. 

SET B 

REGISTER = HALT ADDRESS (616) 

0 

% 

5. 

TTY PAPER 

TAPE PUNCH ON 

0 

\ 

0 

6 . 

GO TO 

PB 


PM 

STB 

PS 


STORE RETURN ADDRESS 


TBB 





STB 

PS+1 




JMP 

P3 


JUMP TO PUNCH 


LOADER FORMAT PAPER TAPE PUNCHER 


CONSOLE ENTRY 

1. SET X REGISTER = MEMORY MODE 

2. SET Y REGISTER = START ADDRESS 

3. SET Z REGISTER = END ADDRESS 

4. TTY PAPER TAPE PUNCH ON 

5. GO TO PI 


PI ELB PA EXIT HALT ADDRESS 
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PROGRAM ENTRY 



1. SET X 

REGISTER = MEMORY MODE 


2. SET Y 

REGISTER = START ADDRESS 


3. SET Z 

REGISTER = END ADDRESS 


4. SET B 

REGISTER = RETURN ADDRESS 


5. JUMP TO PP 

00513 PP 

STB PS 

SAVE RETURN ADDRESS 

00515 

TBB 


00517 

STB PS+1 


00521 

ALD A,314 PUNCH AN L 

00524 

RIC P,B 


00526 

JMP TO 


00530 

AZE A 

PUNCH A BLANK 

00532 

RIC P,B 


00534 

JMP TO 


00536 

RIC P,B 

PUNCH A RUBOUT 

00540 

JMP TO 


00542 

RTR X,A 

PUNCH MODE 

■00544 

RIC P,B 


00546 

JMP TO 


00550 

RTR X,B 

SET MODE 

00552 

TBE 


00554 

RTR Z,X 

SAVE END ADDRESS 

00556 

RTR Y,A 

PUNCH START ADDRESS 

00560 

RIC P,B 


00562 

JMP TO 


00564 

RTR YY,A 


00566 

RIC P, B 


00570 

o 

JMP TO 


u 

PUNCH BLOCK 

LENGTH 

00572 P2 

RIC X,Z 


00574 

RTR Y,B 


00576 

ASU Z,B 

Z = END ADDR + 1 - START ADDR 

00600 

RTR ZZ,ZZ 

00602 

SKZ 2 

DIFF 377? 

00603 

RDC B,Z 

YES 

00605 

RTR Z,A 

NO 

00607 

RIC P,B 


00611 

JMP TO 

PUNCH BLOCK LENGTH 

00613 

RTR Z,B 


00615 

SKN 4 

IF BLOCK LENGTH=ZERO,EXIT. 


EXIT 


00616 PX ELB PS 

00620 RIC B,P 


RETURN ADDRESS 
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PUNCH A BLOCK 



00622 

P3 

STB 

PC 

INITIALIZE CHECKSUM 


00624 


G0L 

A,Y 

PUNCH A CHARACTER 


00626 


RIC 

P/B 



00630 


JMP 

TO 



00632 


G0L 

A,Y 

FORM CHECKSUM 


00634 


LDB 

PC 



00636 


AXR 

A,B 



00640 


SHC 

A 



00642 


RTR 

A,B 



00644 


RIC 

Y,Y 

INCREMENT ADDRESS 


00646 


RDC 

Z/Z 

DECREMENT BLOCK LENGTH 


00650 


SKZ 

2 

BLOCK LENGTH = 0? 


00651 


JMP 

P3 

NO 


00653 


RIC 

P/B 

PUNCH CHECKSUM 


00655 


JMP 

TO 





PUNCH ASSURANCE 

MESSAGE 


00657 


ALD 

Z,006 



00662 

P4 

RIC 

P/B 

PUNCH A RUBOUT 


00664 


JMP 

TO 



00666 


RDC 

Z/Z 



00670 


SKZ 

2 

ALL DONE? 


00671 


JMP 

P4 

NO 


00673 


JMP 

P2 

PUNCH NEXT BLOCK 


00675 

PS 

ZA 

0 

RETURN ADDRESS 


00677 

PA 

ZA 

PX 

EXIT HALT 


00701 

PE 

ZA 

BB-2 

BUS II RETURN 


00703 

PC 

M 

ZC 

377 

CHECKSUM 




ZD 




00477 

161 





00500 

301 

301 275 

014 205 

301 276 141 


00510 

222 

161 277 

301 275 

014 205 301 


00520 

276 004 110 314 010 

154 140 120 


00530 

004 000 010 

154 140 

120 010 154 


00540 

140 

120 010 

301 010 

154 140 120 


00550 

010 

351 014 206 010 

313 010 302 


00560 

010 

154 140 120 010 

306 010 154 


00570 

140 

120 010 

131 010 

352 004 203 


00600 

010 

377 131 

010 235 

010 303 010 


00610 

154 

140 120 010 353 

112 161 275 


00620 

010 

145 301 

303 000 

200 010 154 
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00630 140 120 000 200 341 303 004 040 
00640 014 020 010 350 010 122 010 233 
00650 131 141 222 010 154 140 120 004 
00660 113 006 010 154 140 120 010 233 
00670 131 141 262 141 172 000 000 216 

00700 001 103 015 377 
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APPENDIX D 

PGS BASIC UTILITY SYSTEM II (BUS II) 


PGS BASIC UTILITY SYSTEM II (BUS-II) 

88Y00002A REV A 1-15-69 SHEET 1 NEXT 2 

BUS-II PROVIDES THE FUNCTIONS FOR TESTING 
AND UPGRADING PROGRAMS ON THE SPC-12. 

BUS-II IS RELOCATABLE TO ANY MODE EXCEPT 0. 

BUS-II USES THE GAI RECOMMENDED SHARED COMMAND 
BYTES. 

BUS-II REQUIRES THE FOLLOWING PROGRAMS AND/OR 
DATA TO BE RESIDENT IN MODE 0: 

GAI RECOMMENDED SHARED BYTES 
SERIAL TTY I/O SUBROUTINE 
PGS LOADER/PUNCHER 
BUS-II MODE CONTROL ROUTINES 


BUS-II FUNCTION CONTROL PROGRAM 


16500 

ZC 

100 


16501 BA 

RIC 

P/Z 

SEND CARRET LINE-FEED 

16503 

** 

JMP 

CR 


16505#BB 

RIC 

P/B 

ACCEPT INPUT 

16506 

JMP 

01 


16510 

RTR 

Z/Y 

SAVE INPUT 

16512# 

M 

AZE 

X 


16513 BC 

LDB 

BT,X 

SEARCH FUNCTION CNTRL TABLE 

16515 

SKN 

2 

SEARCH COMPLETE? 

16516 

JMP 

B? 

YES 

16520# 

RTR 

B,A 


16521 

LDB 

OC 

GET INPUT CNTRL CHARACTER 

16523# 

ASU 

A, B 


16524 

SKZ 

4 

INPUT CHAR = TABLE CHAR? 


ZY 



16525# 

AAD 

X,003 

NO - GET NEXT ENTRY 

16527 

JMP 

BC 


16531 

LDB 

BT+1,X 

GET BUS-II FUNCTION ADDRESS 

16533# 

RTR 

B,Z 


16534 

LDB 

BT+2,X 
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16536 


RTR 

B,ZZ 



16540 


LDB 

OM 


GET MODE 

16542# 


RTR 

B,X 



16543 


SKN 

2 



16544 


RIC 

X,X 



16546 


RDC 

Z,P 


EXIT 



SEND ? 



16550#B 

ALD 

A,277 


9 

16552# 


RIC 

P/B 



16553 


JMP 

TO 



16555 


JMP 

BA 





BUS- 

-II FUNCTION 

CONTROL TABLE 

16557 

BT 

ZC 

215 


CARRET 

16560 


ZA 

BA 


FUNCTION CONTROL 

16562 


ZC 

240 


SPACE 

16563 


ZA 

CA 


DISPLAY/ALTER LOCATION 

16565 


ZC 

322 


R 

16566 


ZA 

R1 


DISPLAY/ALTER REGISTER 

16570 


ZC 

307 


G 

16571 


ZA 

GA 


GO 

16573 


ZC 

324 


T 

16574 


ZA 

HI 


TRAP 

16576 


ZC 

314 


L 

16577 


ZA 

LA 


LOADER CALLER 

16601 


ZC 

257 


/ 

16602 


ZA 

A1 


DUMP/PUNCHER CALLER 

16604 

P 

ZC 

302 


B 

16605 


ZA 

BP 


BOOT LOADER PUNCH 

16607 


ZC 

0 





ZD 




16500 

100 010 

134 157 

147 

050 157 253 

16510 

010 

323 

031 375 

157 

111 155 150 

16520 

041 

357 

357 024 

132 

033 003 155 

16530 

113 

375 

160 047 

375 

161 010 375 

16540 

357 

361 

043 111 

010 

111 010 243 

16550 

021 

277 

050 140 

120 

155 101 215 

16560 

101 

015 

240 210 015 

322 257 015 

16570 

307 

241 

016 324 

373 

015 314 312 

16600 

016 

257 

323 016 

302 

362 017 000 
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BUS-II DISPLAY/CHANGE MEMORY ROUTINE 
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THIS 

ROUTINE 

TYPES OUT AND/OR CHANGES 


THE 

CONTENTS 

OF THE LOCATION SPECIFIED 


IN Y AND THE 

MODE SPECIFIED IN X. 

16610KCA 

RIC 

P/B 

PRINT ADDRESS 

16611 

M 

JMP 

AD 


16613# 

RIC 

P/B 

GET MEMORY CONTENTS 

16614 

JMP 

ML 


16616 

RTR 

A/Z 


16620# 

RIC 

P/B 

PRINT CONTENTS 

16621 

JMP 

03 


16623# 

ALD 

A, 240 

SEND SPACE 

16625# 

RIC 

P/B 


16626 

M 

JMP 

TO 


16630# 

RIC 

P/B 

ACCEPT INPUT 

16631 

JMP 

01 


16633 

LDB 

OF 

DATA IN FLAG 

16635 

SKZ 

6 

ANY DATA IN? 

16636 

RTR 

Z,A 

YES - CHANGE LOCATION 

16640 

RIC 

P/B 


16642 

JMP 

MS 


16644 

LDB 

OC 

GET CONTROL CHARACTER 

16646# 

RTR 

B,A 


16647# 

ASU 

A, 215 


16651 

SKN 

2 

CHARACTER - CARRET? 

16652 

JMP 

BA 

YES - EXIT 

16654# 

RIC 

Y/Y 

INCREMENT TO NEXT LOCATION 

16655 

M 

JMP 

CA 



ZD 




16610 050 157 103 050 141 307 010 330 

16620 050 157 161 021 240 050 140 120 

16630 050 157 253 357 360 133 010 303 

16640 010 154 141 305 357 357 041 025 

16650 215 111 155 101 053 155 210 

« PGS BASIC UTILITY SYSTEM II (BUS-II) 

« 88Y00002A REV A - 1-15-69 SHEET 3 NEXT 4 

» BUS-II DISPLAY/CHANGE REGISTER ROUTINE 

THIS ROUTINE TYPES OUT AND/OR CHANGES 
« THE CONTENTS OF THE PSUEDO-REGISTERS 

» A, B, X, Y, AND Z. 
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16657 R1 

RIC 

P/Z 

SEND CARRET LINE FEED 

16661 

JMP 

CR 


16663# 

u 

ALD 

X,014 


16665 R2 

LDB 

RZ,X 

PRINT REGISTER MNEMONIC 

16667# 

RTR 

B,A 


16670# 

RIC 

P/B 


16671 

JMP 

TO 


16673# 

ALD 

A, 240 

SEND SPACE 

16675# 

RIC 

P/B 


16676 

M 

JMP 

TO 


1670(8 

LDB 

RZ+1,X 

PRINT REGISTER CONTENTS 

16702ft 

RTR 

B/Z 


16703 

LDB 

RZ+2,X 


16705 

RTR 

B / ZZ 


16707ft 

RIC 

P/B 


16710 

JMP 

04 


16712ft 

ALD 

A, 240 

SEND SPACE 

16714ft 

RIC 

P/B 


16715 

M 

JMP 

TO 


16717# 

RIC 

P/B 

ACCEPT INPUT 

16720 

JMP 

01 


16722 

LDB 

OF 

GET DATA IN FLAG 

16724 

SKN 

2 

ANY DATA IN? 

16725 

JMP 

R4 

NO 

16727# 

RTR 

Z/B 

CHANGE REGISTER 

16730 

STB 

RZ+1,X 


16732# 

TBB 



16733 

* 

STB 

RZ+2,X 


16735 R4 

LDB 

OC 

GET CONTROL CHARACTER 

16737ft 

RTR 

B,A 


16740ft 

ASU 

A, 215 


16742 

SKN 

2 

CHARACTER = CARRET? 

16743 

JMP 

BA 

YES - EXIT 

16745# 

ASU 

X,003 

GET NEXT REGISTER 

16747 

SKM 

2 

ALL DONE? 

16750 

JMP 

R2 

NO 

16752 

JMP 

BA 

YES - EXIT 


BUS- 

II PSUEDO- 

-REGISTER TABLE 

16754 RZ 

ZC 

332 


16755 

ZA 

0 

PSUEDO-Z 

16757 RY 

ZC 

331 


16760 

ZA 

0 

PSUEDO-Y 
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16762 

RX 

ZC 

330 


16763 


ZA 

0 

PSUEDO-X 

16765 

RB 

ZC 

302 


16766 


ZA 

0 

PSUEDO-B 

16770 

RA 

ZC 

301 


16771 


ZA 

0 

PSUEDO-A 


ZD 

16657 010 

16660 134 157 147 032 014 375 354 041 

16670 050 140 120 021 240 050 140 120 

16700 375 355 047 375 356 010 375 050 

16710 157 163 021 240 050 140 120 050 

16720 157 253 357 360 111 155 335 046 

16730 335 355 061 335 356 357 357 041 

16740 025 215 111 155 101 034 003 115 

16750 155 265 155 101 332 000 000 331 

16760 000 000 330 000 000 302 000 000 

16770 301 000 000 

- PGS BASIC UTILITY SYSTEM II (BUS-II) 

« 88Y00002A REV A 1-15-69 SHEET 4 NEXT 5 

" BUS-II TRAP ROUTINE 

» THIS ROUTINE INSERTS UP TO TWO TRAPS (BREAK-POINT) 
« AT THE ADDRESS SPECIFIED IN Y AND THE MODE SPEC- 
IFIED IN X. 

* AFTER A TRAP IS ENCOUNTERED, TRAP RETURN SAVES THE 

* CONTENTS OF REGISTERS A, B, X, Y, AND Z IN PSUEDO- 

* REGISTERS A, B, X, Y, AND Z, PRINTS THE ADDRESS OF 



THE 

TRAP, 

AND TRANSFERS CONTROL TO THE DISPLAY 


REGISTER 

ROUTINE. 

16773 HI 

ELB 

HB 

TRAP TABLE BASE ADDRESS 

16775# 

RTR 

B,Z 


16776# 

TBB 



16777# 

TBB 



17000 

M 

STB 

HC 

RESET SWITCH 

17002 H2 

LDB 

OF 

GET DATA IN FU\G 

17004 

SKN 

2 

ANY DATA IN? 

17005 

JMP 

H3 

NO - REMOVE TRAP 

17007# 

G4L 

A,Z 

GET TRAP FLAG 

17010 

SKZ 

2 

IS TRAP SET? 

17011 

JMP 

HX 

YES 
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o 

M 

SET TRAP 


17013 

G0S 

Y,Z 

SAVE TRAP ADDRESS 

17015# 

RIC 

P/B 

SAVE DATA FROM TRAP LOCATION 

17016 

JMP 

ML 


17020# 

G2S 

A,Z 


17021# 

G6L 

A,Z 

INSERT TRAP BYTE 1 

17022# 

RIC 

P/B 


17023 

JMP 

MS 


17025 

RDC 

B,A 

SET TRAP FLAG 

17027# 

G4S 

A/Z 


17030 

RIC 

Z/Z 


17032 

G0S 

YY,Z 

SAVE TRAP ADDRESS 

17034# 

RIC 

Y/Y 


17035# 

RIC 

P/B 

SAVE DATA FROM TRAP LOCATION + 1 

17036 

JMP 

ML 


17040# 

G2S 

A/Z 


17041# 

G6L 

A/Z 

INSERT TRAP BYTE 2 

17042# 

RIC 

P/B 


17043 

JMP 

MS 


17045 

G4S 

X/Z 

SAVE TRAP MODE 

17047 

JMP 

BA 

EXIT 

17051#H3 

G4L 

A,Z 

GET TRAP FLAG 

17052 

SKN 

2 

IS TRAP SET? 

17053 

JMP 

HX 

NO 


RESET 

TRAP AND 

RESTORE MEMORY 

17055 H4 

G0L 

Y/Z 

GET MEMORY ADDRESS 

17057 

RIC 

z,z 


17061 

G0L 

YY,Z 


17063 

G4L 

X/Z 

GET MEMORY MODE 

17065 

RDC 

Z/Z 


17067# 

G2L 

A/Z 

GET MEMORY DATA 

17070# 

RIC 

P/B 


17071 

JMP 

MS 

RESTORE DATA 

17073# 

AZE 

A 

RESET TRAP FLAG 

17074# 

G4S 

A/Z 


17075# 

RIC 

Y/Y 


17076 

RIC 

Z/Z 


17100# 

G2L 

A, Z 

GET MEMORY DATA 

17101# 

RIC 

P,B 


17102 

JMP 

MS 

RESTORE DATA 

17104 

RDC 

Z/Z 


17106# 

RDC 

Y/Y 


17107# 

RIC 

P/B 

PRINT TRAP ADDRESS 

17110 

JMP 

AD 


17112 

LDB 

HC 

GET TRAP SWITCH 

17114 

SKN 

2 

SWITCH ON? 
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17115 

17117# 

17120 

17122 


17124 HX 

17126 

17130# 

17131 

17132 
17134 
17137 


17141 HR 
17143 
17145# 
17146 
17150# 
17151 
17153# 
17154 
17156# 
17157 
17161# 
17162 
17164# 
17165 
17167# 
17170 
17172# 
17173 
17175# 
17176 
17200 # 
17201 

17202# 

17204 

17206# 

17207 

17211# 

17212 

17214 

17216 HB 


ENERAL AUTOMATION, INC. 


88A00106A 


JMP 

BA 

NO - EXIT TO BUS-II 

TBB 



STB 

HC 

RESET TRAP SWITCH 

JMP 

R1 

EXIT TO REGISTER DISPLAY 

GET 

NEXT TRAP 


RTR 

Z,A 


ELB 

HB 

TRAP TABLE BASE ADDRESS 

ASU 

A,B 


SKZ 

2 

ALL TRAPS EXAMINED? 

JMP 

B? 

YES - EXIT 

AAD 

Z,010 


JMP 

H2 


BUS- 

II TRAP RETURN 

ELB 

MB 

SAVE B REGISTER 

STB 

RB+1 


TBB 



STB 

RB+2 


RTR 

A,B 

SAVE A REGISTER 

STB 

RA+1 


TBB 



STB 

RA+2 


RTR 

X,B 

SAVE X REGISTER 

STB 

RX+1 


TBB 



STB 

RX+2 


RTR 

Y/B 

SAVE Y REGISTER 

STB 

RY+1 


TBB 



STB 

RY+2 


RTR 

Z/B 

SAVE Z REGISTER 

STB 

RZ+1 


TBB 



STB 

RZ+2 


AZE 

A 


SKR 

2 

TRAP 1 RETURN? 

ZY 


RETAIN AUTO-SHARE 

ALD 

A,010 

NO 

ELB 

HB 

TRAP TABLE BASE ADDRESS 

AAD 

A,B 


RTR 

A/Z 


RDC 

B / B 


STB 

HC 


JMP 

H4 


ZA 

HA 

TRAP TABLE BASE ADDRESS 
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GENERAL AUTOMATIONINC . 


17220 HC ZC 0 TRAP SWITCH 




BUS- 

II TRAP 

TABLE 




** 

TRAP 

1 




17221 

HA 

ZA 

0 

TRAP 

1 

ADDRESS 

17223 


ZA 

0 

TRAP 

1 

SAVE LOCATIONS 

17225 


ZC 

0 

TRAP 

1 

FLAG 

17226 


ZC 

0 

TRAP 

1 

MODE 

17227 


JMP 

MT 

TRAP 

1 




TRAP 

2 




17231 


ZA 

0 

TRAP 

2 

ADDRESS 

17233 


ZA 

0 

TRAP 

2 

SAVE LOCATIONS 

17235 


ZC 

0 

TRAP 

2 

FLAG 

17236 


ZC 

0 

TRAP 

2 

MODE 

17237 


JMP 

MT+2 

TRAP 

2 




ZD 






16773 

176 

216 

047 

061 

061 




17000 

316 

220 

357 

360 

111 

156 

051 

222 

17010 

131 

156 

124 

000 

332 

050 

141 

307 

17020 

225 

223 

050 

141 

305 

010 

205 

226 

17030 

010 

133 

000 

336 

053 

050 

141 

307 

17040 

225 

223 

050 

141 

305 

002 

331 

155 

17050 

101 

222 

111 

156 

124 000 

302 

010 

17060 

133 

000 

306 

002 

301 

010 

233 

221 

17070 

050 

141 

305 

020 

226 

053 

010 

133 

17100 

221 

050 

141 

305 

818 

233 

054 

050 

17110 

157 

103 

356 

220 

111 

155 

101 

061 

17120 

316 

220 

155 

257 

010 

303 

176 

216 

17130 

024 

131 

155 

150 004 

313 

010 

156 

17140 

002 

161 

376 

315 

366 061 

315 

367 

17150 

040 315 

371 

061 

315 

372 

042 

315 

17160 

363 061 

315 

364 044 

315 

360 

061 

17170 

315 

361 

046 

315 

355 

061 

315 

356 

17200 

020 

105 

021 

010 

176 

216 

822 

010 

17210 

330 052 

316 

220 

156 

055 

221 

016 

17220 

000 000 

000 000 000 000 

000 

141 

17230 

353 

000 

000 000 000 000 

000 

141 

17240 

355 









PGS BASIC UTILITY SYSTEM II (BUS-II) 
88Y00002A REV A 1-15-69 SHEET 5 NEXT 6 


D-8 
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GENERAL AUTOMATION, INC. 


BUS-II GO ROUTINE 

THIS ROUTINE LOADS REGISTERS A, B, X, Y, AND Z 
WITH THE CONTENTS OF PSUEDO-REGISTERS A, B, X, 
Y, AND Z AND TRANSFERS CONTROL TO THE LOCATION 
SPECIFIED IN Y AND THE MODE SPECIFIED IN OM. 


17241 GA 

LDB 

OF 

GET DATA IN FLAG 

17243 

SKN 

2 

ANY DATA IN? 

17244 

JMP 

B? 

NO - EXIT 

17246 

ELB 

RB+1 

SAVE PSUEDO-B IN LOW-CORE 

17250 

STB 

MB 


17252# 

TBB 



17253 

STR 

MB+1 


17255 

RTR 

YY,A 

BUILD JUMP INSTRUCTION 

17257# 

AAD 

A, 140 


17261# 

RTR 

A,B 


17262 

STB 

MH 


17264# 

RTR 

Y/B 


17265 

STB 

MH+1 


17267 

ELB 

RA+1 

LOAD A 

17271# 

RTR 

B,A 


17272 

ELB 

RX+1 

LOAD X 

17274# 

RTR 

B,X 


17275 

ELB 

RY+1 

LOAD Y 

17277# 

RTR 

B,Y 


17300 

ELB 

RZ+1 

LOAD Z 

17302# 

RTR 

B/Z 


17303 

LDB 

OM 

GET MODE 

17305 

SKN 

2 


17306 

RIC 

H,B 


17310 

JMP 

MG 

EXIT TO MODE CONTROL 


ZD 




17241 

357 

360 

111 

155 

150 

175 

366 


17250 

301 

376 

061 

301 

377 

010 

306 

023 

17260 

140 040 

301 

374 

044 

301 

375 

175 

17270 

371 

041 

175 

363 

043 

175 

360 

045 

17300 

175 

355 

04 7 

357 

361 

111 

010 

155 

17310 

141 

371 








PGS BASIC UTILITY SYSTEM II (BUS-II) 
88Y00002A REV A 1-15-69 SHEET 6 NEXT 7 

BUS-II LOADER CALLER 
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GENERAL AUTOMATION, INC. 


88A00106A 


THIS ROUTINE TRANSFERS CONTROL FROM 
BUS-11 TO THE LOADER PROGRAM LOCATED 
IN MODE 0. 


17312HLA 

AZE 

A 


17313 

LDB 

OF 

GET DATA IN FLAG 

17315 

SKZ 

2 

ANY DATA IN? 

17316 

RDC 

B,A 


17320# 

RTR 

A, B 

SET LOADER FLAG 

17321 

M 

JMP 

MF 

EXIT TO MODE CONTROL 


ZD 




17312 020 337 360 131 010 205 
17320 040 141 342 



PGS 

BASIC UTILITY SYSTEM II (BUS-II) 


5 88Y00002A REV 

0 

A 1-15-69 SHEET 7 NEXT 


BUS- 

II DUMP/PUNCHER CALLER 


THIS 

ROUTINE CALLS THE DUMP OR PUNCHER 


1 PROGRAM DEPENDING ON THE KEYBOARD INPUT. 


{ IN THE CASE OF 

PUNCHER, THIS ROUTINE OUT 


J PUTS 

64 BLANKS 

BEFORE AND AFTER THE CALL 

17323#/ 

\l RIC 

P/B 

ACCEPT END ADDRESS 

17324 

JMP 

01 


17326 

LDB 

OF 

GET DATA IN FLAG 

17330 

SKN 

2 

ANY DATA IN? 

17331 

JMP 

B? 

NO - EXIT 

17333 

LDB 

OC 

GET CONTROL CHARACTER 

17335# 

RTR 

B,A 


17336# 

ASU 

A, 304 


17340 

SKN 

2 

IS CHARACTER A D? 

17341 JMP 

D1 

YES - GO TO DUMP 

17343#A2 ASU 

A,014 


17345 

SKZ 

2 

IS CHARACTER A P? 

17346 

JMP 

B? 

NO - EXIT 


' PUNCH LEADER 

•0 


17350# 

RTR 

X,B 

SAVE MODE 

17351 

STB 

OM 


17353# 

RIC 

P/B 


17354 

JMP 

AT 
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88A00106A 

rfn 

M 

PUNCH 

TAPE 



17356 

LDB 

OM 

RESTORE MODE 


17360# 

RTR 

B,X 



17361 

JMP 

MP 

EXIT TO MODE CONTROL 


JS 

BUS-II 

PUNCHER RETURN 



PUNCH 

TRAILER 


17363#A3 

RIC 

P/B 



| 17364 

JMP 

AT 



17366 

M 

JMP 

BB 

EXIT TO BUS-II 



LEADER/TRAILER SUBROUTINE 


17370 AT 

STB 

AS 

SAVE RETURN ADDR 


17372# 

TBB 




17373 

STB 

AS+1 



17373# 

ALD 

X, 100 


17377#AR 

AZE 

A 

PUNCH A BLANK 


17400# 

RIC 

P/B 



17401 

JMP 

TO 



17403 

RDC 

X,X 



17405 

SKZ 

2 

ALL DONE? 


17406 

JMP 

AR 

NO 


17410 

ELB 

AS 

EXIT 


17412# 

M 

RIC 

B/P 



17413 AS 

ZA 

0 

RETURN ADDRESS 



ZD 




17323 050 

157 253 

357 

360 


17330 111 

155 150 

357 

357 041 025 304 


17340 111 

157 015 

025 

014 131 155 150 


17350 042 

317 361 

050 

156 370 357 361 


17360 043 

141 332 

050 

156 370 155 105 


17370 317 

013 061 

317 

014 032 100 020 


17400 050 

140 120 

010 

211 131 156 377 


17410 177 

013 051 

000 

000 



PGS BASIC UTILITY SYSTEM II (BUS-II) 



88Y00002A 

REV A 1-15-69 SHEET 8 NEXT 9 



BUS-II 

DUMP ROUTINE 



■Oil 





88A00106A 



GENERAL AUTOMATION, INC. 


THIS ROUTINE PRINTS THE ADDRESSES AND 
CONTENTS OF MEMORY SPECIFIED: 

X = MEMORY MODE 
Y = START ADDRESS 
Z = END ADDRESS 


17415#D1 RTR 

Z,B 

SAVE END ADDRESS 

17416 

STB 

DZ 


17420# 

TBB 



17421 

STB 

DZ+1 



NEW 

PARAGRAPH 


17423 D2 RIC 

P,Z 

SEND CARRET LINE FEED 

17425 

JMP 

CR 



NEW 

LINE 


17427#D3 RIC 

P,B 

PRINT ADDRESS 

17430 

JMP 

AD 



NEW 

LOCATION 


17432#D4 ALD 

A, 240 

SEND SPACE 

17434# 

RIC 

P,B 


17435 

JMP 

TO 


17437# 

RIC 

P,B 

GET DATA FROM MEMORY 

17440 

JMP 

ML 


17442 

RTR 

A/Z 


17444# 

RIC 

P/B 

PRINT MEMORY CONTENTS 

17445 

JMP 

03 


17447 

ELB 

DZ 

GET END ADDRESS 

17451# 

RTR 

B,A 


17452# 

RTR 

Y,B 


17453# 

ASU 

A,B 

END ADDR - START ADDR 

17454 

SKN 

2 



ZY 


RETAIN AUTO-SHARE 

17455# 

RTR 

A,B 


17456# 

TBB 



17457 

SKN 

2 

ALL DONE? 

17460 

JMP 

BA 

YES - EXIT 

17462# 

RIC 

Y/Y 

GET NEXT LOCATION 

17463 

RTR 

Y/A 


17465# 

AND 

A, 07 7 


17467 

SKN 

2 

NEW PARAGRAPH? 

17470 

JMP 

D2 

YES 

17472 

AND 

A007 



C*\ 




r 
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88A00106A 

17474 

SKN 2 

NEW LINE? 


17475 

JMP D3 

YES 


17477 

JMP D4 



17501 DZ 

u 

ZA 0 

END ADDRESS 



ZD 



17415 046 

317 101 



17420 061 

317 102 010 134 

157 147 050 


17430 157 

103 021 240 050 

140 120 050 


17440 141 

307 010 330 050 

157 161 177 


17450 101 

041 044 024 111 

040 061 111 


17460 155 

101 053 010 302 

026 077 111 


17470 157 

023 026 007 111 

057 027 157 


17500 032 

000 000 




PGS BASIC UTILITY SYSTEM II (BUS-II) 



88Y00002A REV 

A 1-15-69 SHEET 9 NEXT 10 



BUS-II PRINT ADDRESS SUBROUTINE 



THIS ROUTINE PRINTS A CARRET LINE FEED, 



THE MEMORY MODE IN X, THE MEMORY ADDRESS 



IN Y, AND A SPACE. 



CALLING SEQUENCE 



RIC P,B 




JMP AD 



17503 AD 

STB AE 

SAVE RETURN ADDRESS 


17505# 

TBB 



17506 

STB AE+1 



17510 

RIC P,Z 

SEND CARRET LINE FEET 


17512 

JMP CR 



17514 

RTR YY,A 



17516# 

AND A,010 

CHECK FOR UPPER MODE 


17520 

SKZ 2 

UPPER MODE? 


17521 

RTR X,A 

YES 


17523# 

AAD A,260 



17525# 

RIC P,B 

PRINT MODE 


17526 

JMP TO 



17530 

RTR Y,Z 



17532# 

RIC P,B 

PRINT ADDRESS 


17533 

JMP 04 



17535# 

ALD A,240 

SEND SPACE 
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17537# 

RIC 

P,B 


17540 

JMP 

TO 


17542 

ELB 

AE 

EXIT 

17544# 

RIC 

B,P 


17545 AE 

ZA 

0 

RETURN 


ZD 




17503 317 145 061 317 146 

17510 010 134 157 147 010 306 026 010 

17520 131 010 301 023 260 050 140 120 

17530 010 332 050 157 163 021 240 050 

17540 140 120 177 145 051 000 000 


PGS BASIC UTILITY SYSTEM II (BUS-II) 
88Y00002A REV A 1-15-69 SHEET 10 NEXT 11 

BUS-II CARRIAGE RETURN LINE FEED SUBROUTINE 


THIS ROUTINE OUTPUTS 1 CARRIAGE RETURN 
AND 1 LINE FEED. 


17547#CR 
17551# 

17552 
17554# 

17556# 

17557 

*\ 

ZD 


ALD 

A, 215 

SEND 

CARRET 

RIC 

P/B 



JMP 

TO 



ALD 

A, 212 

SEND 

LINE FEED 

RTR 

Z/B 



JMP 

TO 




17547 021 

17550 215 050 140 120 021 212 046 140 
17560 120 

» PGS BASIC UTILITY SYSTEM II (BUS-II) 

« 88Y00002A REV A 1-15-69 SHEET 11 NEXT 12 

- BUS-II OCTAL OUTPUT SUBROUTINE 

» THIS ROUTINE CONVERTS FROM BINARY TO 

» 3 OR 4 OCTAL ASCII DIGITS AND OUTPUTS 

THEM TO THE TTY ASR. 

11 CALLING SEQUENCE 

“ Z = 12-BIT OR 8-BIT BINARY NUMBER 
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GENERAL AUTOMATION, INC. 


88A00106A 




RIC P,B 



JMP 03 


OR 

JMP 04 

17561)103 

PLR 


17562 

SKR 

2 

17563 04 

PLS 


17565 

STB 

OS 

17567# 

TBB 


17570 

STB 

OS+1 

17572 

SKS 

2 

17573 

JMP 

05 

17575 

RTR 

ZZ,A 

17577# 

SHR 

A 

17600# 

AAD 

A, 260 

17602# 

RIC 

P,B 

17603 

JMP 

TO 

17605 05 

RTR 

ZZ,A 

17607# 

SHR 

A 

17610 

RTR 

Z,A 

17612# 

SHL 

A 

17613# 

SHR 

A 

17614# 

SHR 

A 

17615# 

SHR 

A 

17616# 

SHR 

A 

17617# 

SHR 

A 

17620# 

AAD 

A, 260 

17622# 

RIC 

P,B 

17623 

JMP 

TO 

17625 

RTR 

Z,A 

17627# 

SHR 

A 

17630# 

SHR 

A 

17631# 

SHR 

A 

17632# 

AND 

A, 007 

17634# 

AAD 

A, 260 

17636# 

RIC 

P,B 

17637 

JMP 

TO 

17641 

RTR 

Z,A 

17643# 

AND 

A, 007 

17645# 

AAD 

A, 260 

17647 

ELB 

OS 

17651 

JMP 

TO 


(OUTPUTS 3 DIGITS) 
(OUTPUTS 4 DIGITS) 


RESET LINK 
SET LINK 

SAVE RETURN ADDRESS 


4 DIGITS? 
NO 


PRINT DIGIT 4 


PRINT DIGIT 3 


PRINT DIGIT 2 


PRINT DIGIT I 
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88A00106A 


ZD 

17561 071 105 014 201 317 355 061 

17570 317 356 125 157 205 010 307 066 

17600 023 260 050 140 120 010 307 066 

17610 010 303 070 066 066 066 066 066 

17620 023 260 050 140 120 010 303 066 

17630 066 066 026 007 023 260 050 140 

17640 120 010 303 026 007 023 260 177 

17650 355 140 120 


PGS BASIC UTILITY SYSTEM II CBUS-II) 
88Y00002A REV A 1-15-69 SHEET 12 NEXT 13 

BUS-II OCTAL INPUT SUBROUTINE 

THIS ROUTINE ACCEPTS UP TO 5 OCTAL ASCII 
DIGITS FROM THE TTY ASR AND CONVERTS THEM 
TO BINARY. 

CALLING SEQUENCE 

RIC P,B 
JMP 01 

UPON EXIT 

Z = 4 LEAST SIGNIFICANT OCTAL 
DIGITS IN BINARY 

OM = MOST SIGNIFICANT OCTAL DIGIT 
IN BINARY 

OC - LAST CHARACTER RCVD (NON-OCTAL) 



OF 

= 000/ 

NO 

OCTAL DIGITS RCVD 



= 377, 

AT 

LEAST 1 DIGIT RCVD 

17653 01 

STB 

OS 


SAVE RETURN ADDRESS 

17655# 

TBB 




17656 

STB 

OS+1 



17660 

AZE 

z 



17662# 

RTR 

Z/B 



17663 

STB 

OF 


RESET DATA IN FLAG 

17665 

STB 

00 


ZERO MSB 

17667#OJ 

RIC 

P,B 


ACCEPT INPUT 

17670 

JMP 

TE 



17672# 

AND 

A, 177 



17674 

SKN 

2 


CHARACTER = BLANK? 

17675 

JMP 

OJ 


YES - IGNORE 

17677# 

AAD 

A, 200 


FORCE LEVEL-8 
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88A00106A 


17701ft 

RTR 

A,B 


17702 

STB 

OC 

SAVE CHARACTER 

17704# 

ASU 

A, 270 


17706 

SKM 

2 

IS CHARACTER GREATER THAN 7? 

17707 

JMP 

OX 

YES 

17711# 

AAD 

A,010 


17713 

SKP 

2 

IS CHARACTER LESS THAN 0? 

17714 

JMP 

OX 

YES 

17716 

RTR 

ZZ,A 

SAVE MSB 

17720# 

SHR 

A 


17721# 

RTR 

A,B 


17722 

STB 

OM 


17724# 

RTR 

Z,B 

MULT OLD NO. BY 8 

17725 

AAD 

Z,B 


17727# 

RTR 

Z,B 


17730 

AAD 

Z,B 


17732# 

RTR 

Z/B 


17733 

AAD 

Z/B 


17735 

LDB 

OC 

GET NEW DIGIT 

17737# 

RTR 

B,A 


17740# 

ASU 

A, 260 

CONVERT BINARY 

17742# 

RTR 

A,B 


17743 

AAD 

Z/B 

OLD + NEW 

17745# 

RDC 

B,B 


17746 

STB 

OF 

SET DATA IN FLAG 

17750 

JMP 

OJ 



EXIT 



17752 OX 

ELB 

OS 


17754# 

M 

RIC 

B/P 


17755 OS 

ZA 

0 

USER RETURN ADDRESS 

17757 OC 

ZC 

0 

LAST CHARACTER RCVD 

17760 OF 

ZC 

0 

DATA IN FLAG 

17761 OM 

ZC 

0 

MOST SIGNIFICANT DIGIT (MODE) 


ZD 




17653 317 355 061 317 356 

17660 004 003 046 317 360 317 361 050 

17670 140 216 026 177 111 157 267 023 

17700 200 040 317 357 025 270 115 157 

17710 352 023 010 135 157 352 010 307 

17720 066 040 317 361 046 004 303 046 

17730 004 303 046 004 303 357 357 041 

17740 025 260 040 004 303 052 317 360 

17750 157 267 177 355 051 000 000 000 

17760 000 000 
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PGS BASIC UTILITY SYSTEM II (BUS-II) 

88Y00002A REV A 1-15-69 SHEET 13 NEXT 14 

BUS II BOOT LOADER PUNCH CALLER 

THIS ROUTINE OUTPUTS 64 BLANKS AND THEN TRANSFERS 
CONTROL FROM BUS II TO THE PUNCHER PROGRAM LOCATE 
IN MODE 0. 


17762#BP 

RIC 

P,B 


17763 

JMP 

AT 

OUTPUT LEADER 

17765# 

ALD 

X, 117 


17767 

RIC 

B,Y 

START ADDRESS TO Y 

17771 

STB 

LS 

LOAD LOADER IN CONSTANT 

17773# 

AAD 

X, 357 

END ADDRESS IN X 

17775# 

RTR 

B,Z 

BLOCK LENGTH TO Z 

17776 

JMP 

PK 



ZD 

17762 050 156 370 032 117 010 
17770 125 301 076 033 357 047 141 077 

PGS BASIC UTILITY SYSTEM II (BUS-II) 

- 88Y00002A REV A 1-27-69 SHEET 14 NEXT 14 

5; BUS-II MODE CONTROL ROUTINES 

:: THESE ROUTINES PROVIDE THE MODE CONTROL 

» FUNCTIONS REQUIRED FOR BUS-II TO COMMUNICATE 
« TO ANY MEMOR v MODE IN THE SPC-12. 

:: LOCATION MM CONTAINS THE CURRENT BUS-II MODE. 

3« IF BUS-II IS RELOCATED TO ANY OTHER MODE,, MM 
MUST BE CHANGED TO THAT MODE. 


CURRENT BUS-II MODE 


00704 MM ZC 001 

S! MEMORY STORE AND LOAD SUBROUTINE 


00705#MS 

PLS 


SET LINK 

00706 

SKS 

2 


00707 ML 

PLR 


RESET LINK 

00711 

STB 

MB 

SAVE RETURN ADDR 

00713# 

TBB 



00714 

STB 

MB+1 


00716# 

RTR 

X,B 

SET MODE 


i 
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88A00106A 


00717# 

TBE 




00720 

SKR 

2 


STORE? 

00721 

G0S 

A,Y 


YES 

00723# 

G0L 

A/Y 



00724 

LDB 

MM 


SET BUS-II MODE 

00726# 

TBE 




00727 

ELB 

MB 


EXIT 

00731# 

RIC 

B,P 



4% 

K0 

0% 

PUNCHER CALLER 

SUBROUTINE 

00732#HP 

RIC 

P/B 


GO TO PUNCHER 

00733 

JMP 

PP 



00735 

LDB 

MM 


SET BUS-II MODE 

00737# 

TBE 




00740 

JMP 

A3 


EXIT 

** 

M 

LOADER CALLER 

SUBROUTINE 

00742 MF 

RIC 

P/Z 


GO TO LOADER 

00744 

JMP 

LD 



00746 

LDB 

MM 


SET BUS-II MODE 

00750# 

TBE 




00751 

JMP 

BB 


EXIT 


TRAP 

RETURN ROUTINE 

00753SMT 

PLR 



TRAP 1 RETURN 

00754 

SKR 

2 



00755 

PLS 



TRAP 2 RETURN 

00757 

STB 

MB 


SAVE B REGISTER 

00761# 

TBB 




00762 

STB 

MB+1 



00764 

LDB 

MM 


SET BUS-II MODE 

00766# 

TBE 




00767 

JMP 

RR 


EXIT 


GO EXIT ROUTINE 

00771#MG 

TBE 



SET MODE 

00772 

ELB 

MB 


LOAD B REGISTER 

00774 MH 

JMP 

MH 


GO 

00776 MB 
#% 

ZA 

0 


B-REGISTER SAVE 


ZD 




00704 001 

072 125 014 



00710 200 

301 376 061 

301 

377 042 062 

00720 105 000 230 210 

341 

304 062 161 
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APPENDIX E 

GA RECOMMENDED SHARED COMMAND BYTES 


GAI RECOMMENDED SHARED COMMAND BYTES 
88Y00015A REV A 01-27-69 SHEET 1 NEXT 1 

THIS RECOMMENDATION IS BASED UPON THESE 
REGISTERS BEING ASSIGNED TO THE FOLLOWING 
GENERAL FUNCTIONS. 

A=PROCESSING REGISTER 
B=OPERAND BUFFER AND SUBROUTINE RETURN 
ADDRESS REGISTER 
X=INDEXING CONTROL REGISTER 
Y=ADDRESSING OR INDEX CONTROL REGISTER 
Z=ADDRESSING OR INDEX CONTROL OR ALTERNATE 
SUBROUTINE RETURN ADDRESS REGISTER 



00020 

ZE 

AZE 

A 



00021 

ZE 

ALD 

A,0 



00022 

ZE 

AAD 

A,B 



00023 

ZE 

AAD 

A,0 



00024 

ZE 

ASU 

A,B 



00025 

ZE 

ASU 

A,0 



00026 

ZE 

AND 

A,0 



00027 

ZE 

AXR 

A,0 



00030 

ZE 

AOR 

A,0 



00031 

ZE 

AZE 

X 



00032 

ZE 

ALD 

X / 0 



00033 

ZE 

AAD 

X,0 



00034 

ZE 

ASU 

X,0 



00040 

ZE 

RTR 

A,B 

REGISTER TRANSFER 


00041 

ZE 

RTR 

B,A 

SHARED INSTRUCTIONS 


00042 

ZE 

RTR 

X,B 



00043 

ZE 

RTR 

B,X 



00044 

ZE 

RTR 

Y/B 



00045 

ZE 

RTR 

B,Y 


% 

00046 

ZE 

RTR 

Z,B 



00047 

ZE 

RTR 

B/Z 


% 

00050 

ZE 

RIC 

P/B 



00051 

ZE 

RIC 

B/P 



00052 

ZE 

RDC 

B,B 



00053 

ZE 

RIC 

Y/Y 



00054 

ZE 

RDC 

Y/Y 

* 
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00060 

ZE 

INE 


00061 

ZE 

TBB 


00062 

ZE 

TBE 


00063 

ZE 

FOB 


00064 

ZE 

DOB 


00065 

ZE 

DIB 


00066 

ZE 

SHR 

A 

00067 

ZE 

SHC 

A 

00070 

ZE 

SHL 

A 

00071 

ZE 

PLR 


00072 

M 

ZE 

PLS 


00100 

ZE 

G0L 

A,X 

00101 

ZE 

G0S 

A,X 

00102 

ZE 

G0L 

A,Y 

00103 

ZE 

G0S 

A,Y 

00104 

ZE 

G0L 

A,Z 

00105 

ZE 

G0S 

A,Z 

00106 

ZE 

G0L 

A,X,I 

00107 

ZE 

G0S 

A,X,I 


PULSE/SHIFT SHARED 


AUGMENTED SHARED 


THE FOLLOWING SHARED COMMAND BYTES ASSUME 
X IS INDEXING CONTROL SELECTED IN THE 
INDIRECT ADDRESS WORD 


00110 


ZE 

G0L 

A,Y,I 

00111 


ZE 

G0S 

A,Y,I 

00112 


ZE 

G0L 

A,Z,I 

00113 


ZE 

G0S 

A/Z, I 



ZD 

S 


00020 

000 

110 

300 310 

200 2 

00030 

070 001 

111 311 

211 

00040 

350 

305 

351 315 

352 3: 

00050 

154 

145 

255 122 

222 

00060 

207 

205 

206 202 

cm 

©. 

CM 

00070 

010 

200 

201 



00100 100 130 200 230 300 330 140 170 

00110 240 270 340 370 
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APPENDIX F 

PGS CAS II SOURCE TAPE PREPARATION ROUTINE 


PGS CAS II SOURCE TAPE PREPARATION 
88Y00017A REV A 1-18-69 SHEET 1 NEXT 1 


4# 

«r% 

THIS 

ROUTINE IS USED IN THE PREPARATION OF 

4* 

#% 

PGS 

CAS I SOURCE 

TAPES. 

#4 

THE 

PROPER SPACING BETWEEN THE DIFFERENT FIELDS 

4* 

IS AUTOMATICALLY 

PROVIDED FOR AS IS THE 


TERMINATION OF THE COMMENT FIELD. 

16200 

4# 

ZC 

100 


4# 

JJ 

CARRIAGE RETURN 


16201 CR 

ALD 

A, 215 

LOAD A WITH CARRIAGE RETURN 

16204 

RIC 

P/B 


16206 

4# 

JMP 

TO 

OUTPUT CARRIAGE RETURN 

4# 

0 % 

U 

LINE 

FEED AND RUBOUTS 

16210 LF 

ALD 

A, 212 

LOAD A WITH LINE FEED 

16213 

RIC 

P/B 


16215 

JMP 

TO 

OUTPUT LINE FEED 

16217 

ALD 

X,012 

LOAD X WITH NUMBER OF RUBOUTS 

16222 LI 

RIC 

P/B 


16224 

JMP 

TO 

OUTPUT RUBOUTS 

16226 

RDC 

x,x 

DECREMENT RUBOUT COUNT 

16230 

SKZ 

2 

ALL DONE? 

16231 

4# 

JMP 

LI 

NO, CONTINUE 

4# 

0 % 

4* 

CHECK FIRST CHARACTER 

16233 CC 

RIC 

P,B 

INPUT CHARACTER 

16235 

JMP 

TE 


16237 

AOR 

A, 200 

FORCE BIT 8 ON 

16242 

AXR 

A, 377 

IGNORE RUBOUT 

16245 

SKN 



16246 

JMP 

CC 


16250 

AXR 

A, 177 

IGNORE BLANKS 

16253 

SKN 

2 


16254 

JMP 

CC 


16256 

ALD 

Y,006 


16261 

AXR 

A,052 


16264 

SKN 

2 

IS INPUT AN ASTERISK? 
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16265 


JMP 

AS 

YES, JUMP TO ASTERISK INPUT 

16267 


ALD 

X,003 

LOAD INDEX 

16272 


AXR 

A,012 

NO 

16275 


SKN 

6 

IS INPUT A SPACE? 

16276 


RIC 

P/Z 

YES, GO TO OUTPUT SPACES 

16300 


JMP 

SP 


16302 


RDC 

X,X 

ADVANCE TO NEXT FIELD COUNT 


+ 0 

0% 

M 

STANDARD INPUT 


16304 

SI 

LDB 

FC-1,K 

LOAD FIELD CONSTANT 

16306 


STB 

S2+2 


16312 

S2 

ALD 

Y,649 

FIELD CONSTANT TO Y 

16313 

S3 

RIC 

P,B 


16315 


JMP 

TE 

INPUT CHARACTER 

16317 


AXR 

A, 377 


16322 


SKN 

4 

IS INPUT RUBOUT? 

16323 


RIC 

Y/Y 

YES, INCREMENT FIELD CONSTANT 

16325 


JMP 

S3 


16327 


RDC 

Y/Y 

DECREMENT FIELD CONSTANT 

16331 


AXR 

A, 162 

NO 

16334 


SKN 

2 

IS INPUT A CARRET? 

16335 


JMP 

LF 

YES, JUMP TO LINE FEED 

16337 


AXR 

A, 155 

NO 

16342 


SKN 

4 

IS INPUT A SPACE? 

16343 


RIC 

P/Z 

YES 

16345 


JMP 

SP 

JUMP TO OUTPUT SPACES 

16347 


RTR 

Y/Y 

NO, TEST FIELD CONSTANT 

16351 


SKZ 

2 

NEW FIELD? 

16352 


JMP 

S3 

NO, CONTINUE 

16354 


RDC 

X,X 

YES 

16356 


SKZ 

2 

TEST WHICH FIELD 

16357 


JMP 

SI 

NOT COMMENT FIELD, CONTINUE 

16361 


ALD 

Y,844 

COMMENT FIELD, LOAD COMMENT CONSTANT 

16364 


JMP 

CF 



A0 

0% 

O 

OUTPUT SPACES 


16366 

SP 

ALD 

A, 240 

LOAD A WITH A SPACE 

16371 


RIC 

P/5 


16373 


JMP 

TO 

OUTPUT SPACE 

16375 


RDC 

Y/Y 

ALL DONE? 

16377 


SKZ 

2 


16400 


JMP 

SP 

NO 

16402 


RIC 

Z/P 

YES 


ASTERISK INPUT 


16404 AS ALD Y,072 LOAD LONG COMMENT CONSTANT 

*0 
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0% 

COMMENT FIELD 


16407 

CF 

RIC 

P,B 

INPUT COMMENT 

16411 


JMP 

TE 


16413 


AXR 

A, 377 


16416 


SKN 

4 

IS INPUT A RUBOUT? 

16417 


RIC 

Y,Y 


16421 


JMP 

CF 

YES, DELETE CHARACTER 

16423 


AXR 

A, 162 

NO 

16426 


SKN 

2 

IS INPUT A CARRET? 

16427 


JMP 

LF 

YES, JUMP TO LINE FEED 

16431 


RDC 

Y/Y 


16433 


SKZ 

2 

IS COMMENT TOO LONG? 

16434 


JMP 

CF 

NO, CONTINUE 

16436 

V 

JMP 

CR 

YES, JUMP TO CARRET 

16440 

FC 

ZC 

13 


16441 


ZC 

6 


16442 


ZC 

6 



TO 

ZL 

120 



TE 

ZL 

216 




ZD 




16200 

100 004 

110 

215 

010 

154 

140 

120 

16210 

004 

110 

212 

010 

154 

140 

120 

004 

16220 

111 

012 

010 

154 

140 

120 

010 

211 

16230 

131 

154 

222 

010 

154 

140 

216 

004 

16240 

070 

200 

004 

050 

377 

111 

154 

233 

16250 

004 050 

177 

111 

154 

233 

004 

112 

16260 

006 004 

050 

052 

111 

155 

004 

004 

16270 

111 

003 

004 

050 

012 

113 

010 

134 

16300 

154 

366 

010 

211 

375 

037 

314 

312 

16310 

004 

112 

000 

010 

154 

140 

216 

004 

16320 

050 

377 

112 

010 

122 

154 

313 

010 

16330 

222 004 

050 

162 

111 

154 

210 

004 

16340 

050 

055 

112 

010 

134 

154 

366 

010 

16350 

322 

131 

154 

313 

010 

211 

131 

154 

16360 

304 004 

112 

044 

155 

007 

004 

110 

16370 

240 010 

154 

140 

120 010 

222 

131 

16400 

154 

366 

010 

143 

004 

112 

072 

010 

16410 

154 

140 

216 

004 

050 

377 

112 

010 

16420 

122 

155 

007 

004 

050 

162 

111 

154 

16430 

210 010 

222 

131 

155 

007 

154 

201 

16440 

013 006 

006 
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